Another Path-in-Zip Example

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

Download Chilkat Zip ActiveX

LOCAL loZip
LOCAL lnSuccess
LOCAL lnRecurse

loZip = CreateObject('Chilkat.Zip2')

lnSuccess = loZip.UnlockComponent("anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Failed to unlock zip component")
    QUIT
ENDIF

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

*  Add references to files:

lnRecurse = 1
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"

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"
loZip.AppendFiles("a\\subdir1\\*",lnRecurse)

lnSuccess = loZip.WriteZipAndClose()