(Lianja) Create Zip Excluding Files Matching Patterns

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loZip = createobject("CkZip")

llSuccess = loZip.NewZip("test.zip")
if (llSuccess <> .T.) then
    ? loZip.LastErrorText
    release loZip
    return
endif

// Create a string array object with our set of filename patterns
// to be excluded:
loSa = createobject("CkStringArray")
llSuccess = loSa.Append("*.bak")
llSuccess = 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.
llRecurse = .T.
llSuccess = loZip.AppendFiles("/temp/a/*",llRecurse)

llSuccess = loZip.WriteZipAndClose()
if (llSuccess <> .T.) then
    ? loZip.LastErrorText
    release loZip
    release loSa
    return
endif

? "Zip Created!"


release loZip
release loSa