Visual FoxPro

Create Zip Excluding Files Matching Patterns

See more Zip Examples

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

LOCAL lnSuccess
LOCAL loZip
LOCAL loSa
LOCAL lnRecurse

lnSuccess = 0

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

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:
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