(Visual FoxPro) Another Path-in-Zip Example

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loZip
LOCAL lnSuccess
LOCAL lnRecurse

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip')
loZip = CreateObject('Chilkat.Zip')

* Intialize the zip object by calling NewZip.
lnSuccess = loZip.NewZip("myZip.zip")

* Add references to files:
lnRecurse = 1
lnSuccess = loZip.AppendFiles("c:\temp\a\subdir1\*",lnRecurse)

* 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:
loZip.AppendFromDir = "c:\temp\a"

lnSuccess = loZip.AppendFiles("subdir1\*",lnRecurse)

* 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:
loZip.AppendFromDir = "c:\temp"
lnSuccess = loZip.AppendFiles("a\subdir1\*",lnRecurse)

lnSuccess = loZip.WriteZipAndClose()

RELEASE loZip