Imports System
Imports System.IO
Imports System.Drawing
Imports System.Windows.Forms
 
Imports ICSharpCode.SharpZipLib.Core
Imports ICSharpCode.SharpZipLib.Zip
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If FolderBrowserDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = FolderBrowserDialog.SelectedPath
        End If
    End Sub
 
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim sourceDir As String = TextBox1.Text.Trim()
 
        ' Simple sanity checks
        If sourceDir.Length = 0 Then
            MessageBox.Show("Please specify a directory")
            Return
        Else
            If Not Directory.Exists(sourceDir) Then
                MessageBox.Show(sourceDir, "Directory not found")
                Return
            End If
        End If
 
        Dim targetName As String = TextBox2.Text.Trim()
        If targetName.Length = 0 Then
            MessageBox.Show("No name specified", "Zip file name error")
            Return
        End If
 
        Dim astrFileNames() As String = Directory.GetFiles(sourceDir)
        Dim strmZipOutputStream As ZipOutputStream
 
        strmZipOutputStream = New ZipOutputStream(File.Create(targetName))
 
        REM Compression Level: 0-9
        REM 0: no(Compression)
        REM 9: maximum compression
        strmZipOutputStream.SetLevel(9)
 
        Dim strFile As String
 
        For Each strFile In astrFileNames
            Dim strmFile As FileStream = File.OpenRead(strFile)
            Dim abyBuffer(strmFile.Length - 1) As Byte
 
            strmFile.Read(abyBuffer, 0, abyBuffer.Length)
            Dim objZipEntry As ZipEntry = New ZipEntry(strFile)
 
            objZipEntry.DateTime = DateTime.Now
            objZipEntry.Size = strmFile.Length
            strmFile.Close()
            strmZipOutputStream.PutNextEntry(objZipEntry)
            strmZipOutputStream.Write(abyBuffer, 0, abyBuffer.Length)
 
        Next
 
        strmZipOutputStream.Finish()
        strmZipOutputStream.Close()
 
        MessageBox.Show("Operation complete")
    End Sub
 
 
End Class