Xbase++

Another Path-in-Zip Example

See more Zip Examples

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

LOCAL nSuccess
LOCAL oZip
LOCAL nRecurse

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oZip := CreateObject("Chilkat.Zip")

//  Intialize the zip object by calling NewZip.
nSuccess := oZip:NewZip("myZip.zip")

//  Add references to files:
nRecurse := 1
nSuccess := oZip:AppendFiles("c:\temp\a\subdir1\*", nRecurse)

//  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:
oZip:AppendFromDir := "c:\temp\a"

nSuccess := oZip:AppendFiles("subdir1\*", nRecurse)

//  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:
oZip:AppendFromDir := "c:\temp"
nSuccess := oZip:AppendFiles("a\subdir1\*", nRecurse)

nSuccess := oZip:WriteZipAndClose()

oZip:destroy()