Čo takto použiť vbscript:

Const zipPath = "C:\some.zip" //toto je archív, ktorý sa má vytvoriť
Set fso = CreateObject("Scripting.FileSystemObject")
Set shell32 = CreateObject("Shell.Application")
docs = "C:\bin" //toto je adresár, kde sa nachádzajú súbory pre archiváciu

'Create blank zip file
With fso.OpenTextFile(zipPath, 2, True)
.Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))
End With
Set zip = shell32.NameSpace(zipPath)

'Put stuff into zip file
zip.CopyHere shell32.NameSpace(docs)

'Sleep long enough to let zipping start
WScript.Sleep 10000