Spoonfeedin..
[highlight="VB.Net"]Sub CreateZip(ByVal FileToPack As String, ByVal WhereToSave As String, Optional ByVal Password As String = "", Optional ByVal compression As Integer = 5)
Dim stream As New ZipOutputStream(File.Create(Path.Combine(WhereToSa ve, Path.GetFileName(FileToPack) & ".zip")))
stream.Password = Password
stream.SetLevel(compression)
Dim entry As New ZipEntry(Path.GetFileName(FileToPack))
entry.DateTime = DateTime.Now
Using fs As FileStream = File.OpenRead(FileToPack)
Dim buffer As Byte() = New Byte(fs.Length - 1) {}
fs.Read(buffer, 0, buffer.Length)
entry.Size = fs.Length
fs.Close()
stream.PutNextEntry(entry)
stream.Write(buffer, 0, buffer.Length)
End Using
stream.Finish()
stream.Close()
End Sub
Sub ExtractZip(ByVal FileToUnzip As String, ByVal WhereToSave As String, Optional ByVal Password As String = "")
Dim fz As New FastZip
fz.Password = Password
fz.ExtractZip(FileToUnzip, WhereToSave, "")
End Sub[/highlight]