(Visual FoxPro) Zip -- Exclude Files Based on Wildcard Matching

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loZip
LOCAL lnSuccess
LOCAL loSaExcludes
LOCAL lnRecurse

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip')
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.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringArray')
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