コマンドラインでZIPファイルを作成/追加/置換/削除/展開/表示するVBScript
下記サイトより頂きました。
－－－－－－－－－－－－－－－－－－－－－
http://www.vector.co.jp/soft/dl/winnt/util/se355605.html
Windows7/WindowsServer2008に対応してないらしくて、MakeZip.VBSの36行目を下記のように書きなおしてみる。
' ----- Windows7/WindowsServer2008対応
' Set sFolderItem=Shell.NameSpace(fso.GetAbsolutePathName(Path)&"\..\").ParseName(FileName)
Set sFolderItem=Shell.NameSpace(fso.GetAbsolutePathName(fso.GetParentFolderName(Path))).ParseName(FileName)
' -----
from
http://d.hatena.ne.jp/S_a_k_U/20110812
－－－－－－－－－－－－－－－－－－－－－