VBScript壓縮單個文件

Dim objShell

Set objShell = CreateObject("Shell.Application")

objShell.NameSpace("D:\tmp").CopyHere objShell.NameSpace("C:\1.zip").Items(), 256

Set objShell  = Nothing