フォルダをZIPに圧縮するVBS

WSH


インストール不要でフォルダをzipに圧縮するスクリプト。
なお、サブフォルダには対応していない。

'圧縮するフォルダ
SorceFolder = "P:\hoge"
'zipの作成先
DestZipPath = "P:\hoge.zip"


wkArray = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
For i = 0 To UBound(wkArray)
  strbuf = strbuf & Chr(wkArray(i))
Next

'空のZIPファイルを作成
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(DestZipPath, 2, True)
objFile.Write(strbuf)
objFile.Close

'ZIPファイルにフォルダ内のファイルをコピー
For Each objFile In objFSO.GetFolder(SorceFolder).Files
   CreateObject("Shell.Application").NameSpace(DestZipPath).CopyHere(objFile.path)
   WScript.sleep 3000
Next

msgbox "圧縮したよ"


動作確認環境:Windows 7 SP1