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