|This topic's old, but I was gone, and now I'm back. So whatever.|
The zip file handling is handled by the Windows shell, so you can use the Shell.Application COM object to zip/unzip files. It's kind of touchy, but it'll get the job done. Usually.
Every Windows native scripting language can use COM objects, with the exception of batch.
Const zipPath = "C:\some.zip"
Set fso = CreateObject("Scripting.FileSystemObject")
Set shell32 = CreateObject("Shell.Application")
docs = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
'Create blank zip file
With fso.OpenTextFile(zipPath, 2, True)
.Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))
Set zip = shell32.NameSpace(zipPath)
'Put stuff into zip file
'Sleep long enough to let zipping start