フォルダ内の指定ファイルをｚｉｐ形式で圧縮してほかのフォルダにいれる。（vbscript）

vbscriptを学び始めたものです。よろしくおねがいいたします。http://www.hatena.ne.jp/1123181645
いまインターネットで見つかったソースを拝見しています。これはフォルダ内のすべてのファイルを一個ずつ圧縮して保存するが何とか直して指定ファイルにしたいですが
どこに手を入れればいいかわからなくて質問させていただきました。わかる方がいるならぜひともご教授ください！

No.2 ベストアンサー 回答者： BLUEPIXY 回答日時： 2006/01/25 11:14

>うまくいきませんでした。

file = "filePath"
みたいにしてませんか
file = fso.GetFile("filePath")
ようにすれば大丈夫だと思いますが・

この回答へのお礼

ご丁寧に教えてくれて
ありがとうございます。
成功しました。
私がちゃんと見ないで
コピーばかりしたせいで
。。。。（TT;＞
ありがとうございます。
本当に助かりました．

お礼日時：2006/01/25 12:59

No.1 回答者： BLUEPIXY 回答日時： 2006/01/24 20:04

実際には、試していないのですが、

参照ＵＲＬのソースの下の方
＞for each file in sourceFolder.Files
という部分がありますが、
これで、元のフォルダのファイルを file に取り出しつつ next までを実行するということなので、
for each の行と next を削除し、
file に 指定したファイルのファイルオブジェクトを入れればいいと思います。
（実際には、試してませんが・・）

参照ＵＲＬの最初に表示されているリンク(ZIP.VBS)が元ネタですから
ZIP.VBSをダウンロードしてソースを見るといいかもしれません。
指定したファイルをＺＩＰするだけなら、ZIP.VBSがそのまま使えると思います。

この回答への補足

早速の返事ありがとうございます。
＞for each の行と next を削除し、
それもやってみました。
うまくいきませんでした。
ZIP.VBSのソースをみたけど
初心者なのでちょっとわかりにくかったんです。
いまだに解決になっておりません。
かなり初心者。。。。かなり。。。（T.T)>

補足日時：2006/01/25 10:19