.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 Transactions
    Sub Main(ByVal args() As String)
        ' Create an instance of the ZipForge class
        Dim archiver As ZipForge = New ZipForge()
        ' Set the name of the archive file we want to create
        archiver.FileName = "c:\test.zip"
        ' open an existing ZIP file
        archiver.OpenArchive(System.IO.FileMode.Open)
        ' start transaction
        archiver.BeginUpdate()
        Try
            ' rename a file
            archiver.RenameFile("file.txt", "renamed.txt")
            ' delete .dat files
            archiver.DeleteFiles("*.dat")
            ' add new files
            archiver.BaseDir = "C:\XML"
            archiver.AddFiles("*.xml")
            archiver.EndUpdate()
        Catch
            archiver.CancelUpdate()
        End Try
        ' close archive
        archiver.CloseArchive()
    End Sub

End Module