Controlling Paths of Files Added to Zip

When appending files to a .zip, it can be difficult to get the paths exactly as you want them. This example describes a way that you can control the path information when adding a single file at a time to a .zip.

Download Chilkat Zip ActiveX

LOCAL loZip
LOCAL lnSuccess
LOCAL lnSaveExtraPath

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 a reference to a file on disk to the zip object.
*  (When appending files to a zip, the files are not actually
*  read into memory.  References to the file(s) are added.
*  When WriteZip is called, the referenced files are streamed in
*  and compressed to the .zip.)

lnSaveExtraPath = 0
lnSuccess = loZip.AppendOneFileOrDir("c:/temp/a/hamlet.xml",lnSaveExtraPath)
*  For brevity, this example will not check the return status...

*  The saveExtraPath argument, if set, will cause the path information
*  passed in the 1st argument to be saved in the .zip.

*  To add "a/hamlet.xml", do this:
loZip.AppendFromDir = "c:/temp"
lnSaveExtraPath = 1
lnSuccess = loZip.AppendOneFileOrDir("a/hamlet.xml",lnSaveExtraPath)

*  To add "temp/a/hamlet.xml", do this:
loZip.AppendFromDir = "c:/"
lnSaveExtraPath = 1
lnSuccess = loZip.AppendOneFileOrDir("temp/a/hamlet.xml",lnSaveExtraPath)

*  The zip written here will contain hamlet.xml three times,
*  each with a different relative path.
lnSuccess = loZip.WriteZipAndClose()