Create Zip with Exclusions

Demonstrates the SetExclusions method for excluding files and directories matching any one of several exclusion patterns.

set zip = CreateObject("ChilkatZip2.ChilkatZip2")
zip.UnlockComponent "anything for 30-day trial"

set exclusions = CreateObject("ChilkatUtil.CkStringArray")

zip.NewZip "myZip.zip"

' Set recurseDirectories = 1 to recurse directories.
recurseDirectories = 1
' When zipping, set our current working directory to c:/temp
zip.AppendFromDir = "c:/temp"

' Setup our exclusion patterns:
exclusions.Append("*.wmv")
exclusions.Append("*.tmp")
exclusions.Append("*.dat")
' Perhaps there is a subdirectory or two to be excluded:
exclusions.Append("*/temp/*")
exclusions.Append("*/tmp/*")
exclusions.Append("a/junk/*")

zip.SetExclusions exclusions

' Zip the entire "a" directory.
zip.AppendFiles "a/*", recurseDirectories

zip.WriteZipAndClose