.NET Zip Component ZipForge.NET

Imports System
' This namespace contains main class - ZipForge.
' Don't forget to add a reference to the ZipForge 
' assembly to your project references
Imports ComponentAce.Compression.ZipForge
' This namespace contains ArchiverException class required for error handling
Imports ComponentAce.Compression.Archiver
Module ZipFile

    Sub Main()
        Dim archiver As ZipForge = New ZipForge()
        Try
            ' The name of the ZIP file to be created
            archiver.FileName = "C:\test.zip"
            ' Specify FileMode.Create to create a new ZIP file
            ' or FileMode.Open to open an existing archive
            archiver.OpenArchive(System.IO.FileMode.Create)
            ' Default path for all operations                
            archiver.BaseDir = "C:\"
            ' Add file C:\file.txt the archive; wildcards can be used as well                
            archiver.AddFiles("c:\file.txt")
            ' Close archive
            archiver.CloseArchive()        
            ' Catch all exceptions of the ArchiverException type
        Catch ae As ArchiverException
            Console.WriteLine("Message: {0} Error code: {1}", ae.Message, ae.ErrorCode)
            ' Wait for keypress
            Console.ReadLine()
        End Try
    End Sub

End Module