Create Zip with Exclusions

Download Chilkat Zip ActiveX (includes objects for .zip, .gz, .bz2, and .Z)

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

set zip = CreateObject("Chilkat.Zip2")
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