(Visual FoxPro) Create Zip Excluding Files Matching Patterns

How to create a .zip archive excluding (skipping) files that match a set of wildcarded patterns.

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

LOCAL loZip
LOCAL lnSuccess
LOCAL loSa
LOCAL lnRecurse
LOCAL lnSuccess

* 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("test.zip")
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Create a string array object with our set of filename patterns
* to be excluded:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringArray')
loSa = CreateObject('Chilkat.StringArray')
lnSuccess = loSa.Append("*.bak")
lnSuccess = loSa.Append("*.tmp")

* Tell the zip object to use these exclusions:
loZip.SetExclusions(loSa)

* Append a directory tree.  The AppendFiles does
* not read the file contents or append them to the zip
* object in memory.  It simply appends references
* to the files so that when WriteZip (or WriteZipAndClose,
* or WriteExe, etc.) is called, the files are compressed
* and encrypted.
lnRecurse = 1
lnSuccess = loZip.AppendFiles("/temp/a/*",lnRecurse)

lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    RELEASE loSa
    CANCEL
ENDIF

? "Zip Created!"

RELEASE loZip
RELEASE loSa