(Tcl) Create Zip Excluding Files Matching Patterns

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set zip [new_CkZip]

set success [CkZip_NewZip $zip "test.zip"]
if {$success != 1} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

# Create a string array object with our set of filename patterns
# to be excluded:
set sa [new_CkStringArray]

set success [CkStringArray_Append $sa "*.bak"]
set success [CkStringArray_Append $sa "*.tmp"]

# Tell the zip object to use these exclusions:
CkZip_SetExclusions $zip $sa

# 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.
set recurse 1
set success [CkZip_AppendFiles $zip "/temp/a/*" $recurse]

set success [CkZip_WriteZipAndClose $zip]
if {$success != 1} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    delete_CkStringArray $sa
    exit
}

puts "Zip Created!"

delete_CkZip $zip
delete_CkStringArray $sa