Lianja

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. Lianja

llSuccess = .F.

loZip = createobject("CkZip")

llSuccess = 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("CkStringArray")
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.
llRecurse = .T.
llSuccess = loZip.AppendFiles("c:/AAWorkArea/ChilkatSampleProjects/*",llRecurse)
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    release loSaExcludes
    return
endif

// Create the zip from the file and directory promises added previously.
llSuccess = loZip.WriteZipAndClose()
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    release loSaExcludes
    return
endif

? "Success."


release loZip
release loSaExcludes