Answer by Olc for Can you zip a file from the command prompt using ONLY Windows' built-in capability to zip files?

Multiple files / directories with simplified code.

cscript zip.vbs target.zip sourceFile1 sourceDir2 ... sourceObjN

zip.vbs file

Set objArgs = WScript.ArgumentsZipFile = objArgs(0)' Create empty ZIP file and open for addingCreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK"& Chr(5) & Chr(6) & String(18, vbNullChar)Set zip = CreateObject("Shell.Application").NameSpace(ZipFile)' Add all files/directories to the .zip fileFor i = 1 To objArgs.count-1  zip.CopyHere(objArgs(i))  WScript.Sleep 10000 'REQUIRED!! (Depending on file/dir size)Next