.NET Zip Component ZipForge.NET

Imports System
' 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 ZipInStream    
    Sub Main()
        ' Create an instance of the ZipForge class
        Dim archiver As ZipForge = New ZipForge()
        Try
            ' create a new memory stream
            Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream()
            ' create a new archive in the memory stream
            archiver.OpenArchive(memoryStream, True)
            ' add a file into the archive in the stream
            Const fileName = "C:\file.txt"
            archiver.AddFiles(fileName)
            ' close archive
            archiver.CloseArchive()
        Catch ae As ArchiverException
            Console.WriteLine("Message: {0} Error code: {1}", ae.Message, ae.ErrorCode)
            ' Wait for the  key to be pressed 
            Console.ReadLine()
        End Try
    End Sub
End Module