http://groups.google.com/group/microsoft.public.scripting.vbscript/ms...

I'm not sure you can copy all files in a folder at once. You may have to
loop through them.

I have modified the above somewhat.

Const MyZip = "C:\test.zip"
Const File1 = "C:\Data\test1.txt"
Const File2 = "C:\Data\test2.txt"

'-------------- create empty zip file ---------
CreateObject("Scripting.FileSystemObject") _
        .CreateTextFile(MyZip, True) _
        .Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)

'-------------- zip the files ------------------
With CreateObject("Shell.Application")
        'add files
        .NameSpace(MyZip).CopyHere File1
        .NameSpace(MyZip).CopyHere File2
End With
wScript.Sleep 1000