Modify Paths of Entries when Creating a Zip

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Creates a Zip by adding files from the filesystem, but before writing the Zip, modifies the pathnames of the entries within the Zip.

    ' Creates a Zip and modifies the paths of the files within the Zip.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim zip As New Chilkat.Zip()
        zip.UnlockComponent("30-day trial")

        ' The Zip file is not written until WriteZipAndClose is called.
        zip.NewZip("something.zip")

        zip.AppendFromDir = "c:\ImagesToZip"
        ' Append everything in the directory, without recursing subtrees.
        ' Appending simply adds file references to the Zip object.
        ' When WriteZipAndClose is called, the files are read and zipped.
        zip.AppendFiles("*", False)

        Dim entry As Chilkat.ZipEntry

        ' Modify the paths...
        ' The entries still point to the same files on disk, but the 
        ' pathname for the entry when the Zip is created will be different.
        entry = zip.GetEntryByName("Image1.bmp")
        If (Not (entry Is Nothing)) Then
            entry.FileName = "LowerImages\" & entry.FileName
        End If

        entry = zip.GetEntryByName("Image2.bmp")
        If (Not (entry Is Nothing)) Then
            entry.FileName = "LowerImages\" & entry.FileName
        End If

        entry = zip.GetEntryByName("Image3.bmp")
        If (Not (entry Is Nothing)) Then
            entry.FileName = "LowerImages\" & entry.FileName
        End If

        entry = zip.GetEntryByName("Image4.bmp")
        If (Not (entry Is Nothing)) Then
            entry.FileName = "UpperImages\" & entry.FileName
        End If

        entry = zip.GetEntryByName("Image5.bmp")
        If (Not (entry Is Nothing)) Then
            entry.FileName = "UpperImages\" & entry.FileName
        End If

        ' Writes "something.zip"
        zip.WriteZipAndClose()

    End Sub

Important: The download for this example does not contain the ChilkatDotNet.dll which
must be downloaded and installed separately at http://www.chilkatsoft.com/downloads.asp.
Once installed, add a reference to the DLL in the project by following the instructions at
http://www.example-code.com/vbdotnet/step2.asp