ZIP.VBS
http://www.vector.co.jp/soft/winnt/util/se355605.html
使い方 コマンドプロンプトから
CScript.exe MakeZIP.VBS 新規ZIPファイルパス ファイルorフォルダパス
CScript.exe MakeZIP new.zip hoge.txt fuga.txt
hoge.txtとfuga.txtがnew.zipとして、ZIP圧縮されて作成される。
32bitだと正常稼働していたものの64bitだと「オブジェクトがありません。」というエラーがでる。
Set sFolderItem=Shell.NameSpace(fso.GetAbsolutePathName(Path)&”\..\”).ParseName(FileName)
↓
Set sFolderItem=Shell.NameSpace(fso.GetAbsolutePathName(fso.GetParentFolderName(Path))).ParseName(FileName)