Visual FoxPro

Zip -- Exclude Files Based on Wildcard Matching

See more Zip Examples

Demonstrates how to use the SetExclusions method to exclude matching files from being added to a .zip. Visual FoxPro

LOCAL lnSuccess
LOCAL loZip
LOCAL loSaExcludes
LOCAL lnRecurse

lnSuccess = 0

loZip = CreateObject('Chilkat.Zip')

lnSuccess = loZip.NewZip("qa_output/x.zip")

* Let's add files from the directory tree rooted at C:\AAWorkarea\ChilkatSampleProjects

* However.. we want to exclude all files ending in ".cache" or ".pdb" regardless of the sub-directory.
* Also exclude all files under any "obj" directory,
* and we also want to exclude any .exe found under a "win10-x64" directory.

loSaExcludes = CreateObject('Chilkat.StringArray')
loSaExcludes.Append("*.cache")
loSaExcludes.Append("*.pdb")
loSaExcludes.Append("*/obj/*")
loSaExcludes.Append("*/win10-x64/*.exe")
loZip.SetExclusions(loSaExcludes)

* Append promises of paths and files to be zipped.
lnRecurse = 1
lnSuccess = loZip.AppendFiles("c:/AAWorkArea/ChilkatSampleProjects/*",lnRecurse)
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    RELEASE loSaExcludes
    CANCEL
ENDIF

* Create the zip from the file and directory promises added previously.
lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    RELEASE loSaExcludes
    CANCEL
ENDIF

? "Success."

RELEASE loZip
RELEASE loSaExcludes