.NET Zip Component ZipForge.NET

Imports System
' For FileStream class and FileMode enumeration
Imports System.IO
' This namespace contains the 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 ZipStream
    Sub Main()
        ' Create an instance of the ZipForge class
        Dim archiver As New ZipForge()
        
        Try
            ' Set the name of the archive file we want to create
            archiver.FileName = "C:\test.zip"
            ' Because we create a new archive, 
            ' we set fileMode to System.IO.FileMode.Create
            archiver.OpenArchive(FileMode.Create)
            ' Set base (default) directory for all archive operations
            archiver.BaseDir = "C:\"
            ' Create the new FileStream object for reading from the file.
            ' If file doesn't exist, a FileNotFoundException will be thrown
            Dim fileStream As New FileStream("C:\file.txt", FileMode.Open)
            ' Add the stream to the archive.
            ' Specify the name of the file in the archive, 
            ' where stream data is saved
            archiver.AddFromStream("anothername.txt", fileStream)
            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 the  key to be pressed
            Console.ReadLine()
        Catch e As Exception
            ' Additional catch block because the creation 
            ' of the FileStream object can throw exceptions
            Console.WriteLine("Error: {0}", e.Message)
            ' Wait for the  key to be pressed
            Console.ReadLine()
        End Try
    End Sub
End Module