Visual FoxPro

Zip

See more Zip Examples

Zip a directory tree. Visual FoxPro

LOCAL lnSuccess
LOCAL loZip
LOCAL lcZipPath
LOCAL lnRecurse

lnSuccess = 0

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

loZip = CreateObject('Chilkat.Zip')

lcZipPath = "c:/temp/myFiles.zip"

*  Initialize the zip object, which also sets the FileName property to the path of the zip to be created.
loZip.NewZip(lcZipPath)

*  Append references to files to be zipped.
lnRecurse = 1
lnSuccess = loZip.AppendFiles("c:/temp/files_to_zip/*",lnRecurse)
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

*  Write the .zip and close the zip file (and clears the zip object).
lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

? "Successfully created " + lcZipPath

*  If the following files existed under c:/temp/files_to_zip

*  c:/temp/files_to_zip/aaa/pigs.json
*  c:/temp/files_to_zip/bbb/base64Cert.txt
*  c:/temp/files_to_zip/bbb/sub1/brasil_cert.pem
*  c:/temp/files_to_zip/bbb/sub2/penguins.gif
*  c:/temp/files_to_zip/bbb/sub2/starfish.jpg
*  c:/temp/files_to_zip/hamlet.xml
*  c:/temp/files_to_zip/hello.pdf

*  then the zip we created would contain:

*  aaa/pigs.json
*  bbb/base64Cert.txt
*  bbb/sub1/brasil_cert.pem
*  bbb/sub2/penguins.gif
*  bbb/sub2/starfish.jpg
*  hamlet.xml
*  hello.pdf

RELEASE loZip