Unzip a Zip File to a Directory

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

Unzip a Zip file into a directory.

set zip = CreateObject("Chilkat.Zip2")
zip.UnlockComponent "anything for 30-day trial"
zip.OpenZip "something.zip"
numFilesUnzipped = zip.Unzip "someDirectory"
if (numFilesUnzipped = -1) then
	zip.SaveLastError "errors.txt"
end if