Another Path-in-Zip Example

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Another example about getting the correct paths within a .zip.

Dim zip As New Chilkat.Zip()

Dim success As Boolean

success = zip.UnlockComponent("anything for 30-day trial")
If (success <> true) Then
    MsgBox("Failed to unlock zip component")
    Exit Sub
End If


'  Intialize the zip object by calling NewZip.
zip.NewZip("myZip.zip")

'  Add references to files:
Dim recurse As Boolean
recurse = true
zip.AppendFiles("c:\\temp\\a\\subdir1\\*",recurse)

'  Assuming that the file c:\temp\a\subdir1\dude.gif exists,
'  the .zip will contain "dude.gif" without any path information.

'  The component has no
'  choice but to use "c:\\temp\\a\\subdir1" as the root.
'  It's not possible for the component to know if you
'  wanted subdir1\ or a\subdir1\ or temp\a\subdir1
'  paths prefixed for each file added.

'  To control the path within the zip, set the AppendFromDir
'  directory and then use a relative path in AppendFiles.
'  For example:
zip.AppendFromDir = "c:\\temp\\a"

zip.AppendFiles("subdir1\\*",recurse)

'  This causes c:\temp\a\subdir1\dude.gif to be added as
'  "subdir1\dude.gif" within the .zip.

'  If you need the path within the .zip to be "a\subdir", then
'  do this:
zip.AppendFromDir = "c:\\temp"
zip.AppendFiles("a\\subdir1\\*",recurse)


success = zip.WriteZipAndClose()