VBSを使ってフォルダを圧縮

質問

初めましてsazzzzと申します。
恥を承知、お解りになる方に聞いてみようかとこの度投稿した次第です。
どなたか助けてください。宜しくお願いします。VBSめちゃめちゃ初心者なのです。
☆不特定なファイルが格納されているフォルダを指定フォルダに圧縮
☆VBSを使い、業務時間外にタスクで管理したい
☆Windows2000(いまだに...)を使用

不作VBSを書かせて頂きます。ファイルでは、動作問題なく出来ましたが、フォルダとなると無理でした。
'---------------フォルダーのコピー--------------------
'コピーフォルダ名
strFolder= "TEST"
'圧縮フォルダ名
strZipFolder= strFolder & ".zip"
MsgBox strZipFolder
'コピー元パス
strSource="\\Pink\Work\" & strFolder
'コピー先パス
strDestinate="\\Pink\Work\BK\"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFB = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strSource) = False Then
objFB.CreateFolder(strSource)
End If
objFB.CopyFolder strSource , strDestinate , False
'--------------コピー元フォルダの削除-----------------------
strPath = strSource
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strPath) = False Then
MsgBox("指定されたフォルダが存在しません。")
Else
objFB.DeleteFolder strPath
End If
'DOSコマンドを実行して、圧縮する　
Set ws = WScript.CreateObject("WScript.Shell")
strDC="Makecab " & strDestinate & strFolder & " " & strDestinate & strZipFolder
ws.Run strDC,0,true
set ws=nothing
objFS.DeleteFile(strDestinate & strFolder)
Set objFS=Nothing
Set objFB=Nothing

回答No.2

AlexSuns

こちらを使用されてみてはどうですか？

ZIP.VBS
コマンドラインでZIPファイルを作成/追加/置換/削除/展開/表示するVBScript
http://www.vector.co.jp/soft/winnt/util/se355605.html

補足

Alexさん、ありがとうございます。しかしばがら既にDLして確認済みなのです。ファイルの圧縮のみでした。

回答No.1

teto_pun2

参考→http://www.syuhitu.org/other/makecab.html
これをみてると、直接フォルダを圧縮できないと後半部分にかかれていますが。。。。。。。。。。。。

補足

結構色々DLして試してみてはいるんですが....これもその一つでした。
残念ながら。