.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 Comments

    Sub Main()
        ' Create an instance of the ZipForge class
        Dim archiver As ZipForge = New ZipForge()
        Try
            ' Set the name of the archive file we want to create
            archiver.FileName = "c:\test.zip"
            ' create a new ZIP file
            archiver.OpenArchive(System.IO.FileMode.Create)
            ' set archive file comment 
            archiver.Comment = "archive comment"
            ' add a file with comment
            Dim archiveItem As ArchiveItem = New ArchiveItem("c:\file.txt")
            archiveItem.Comment = "comment1"
            archiver.AddItem(archiveItem)
            ' close archive
            archiver.CloseArchive()

            ' read comments
            archiver.OpenArchive(System.IO.FileMode.Open)
            ' write archive comment
            Console.WriteLine("archive comment: {0}", archiver.Comment)
            ' write file comments
            Dim ai As ArchiveItem
            For Each ai In archiver
                Console.WriteLine(ai.FileName + " " + ai.Comment)
            Next
            archiver.CloseArchive()
            Console.ReadLine()
        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