Create a Zip

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

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Create a Zip file with or without recursing subdirectories.

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

zip.NewZip "myZip1.zip"

' Set recurseDirectories = 1 to recurse directories.
recurseDirectories = 0
zip.AppendFiles "myFiles/*",recurseDirectories

zip.WriteZipAndClose