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

質問

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

回答No.2

BLUEPIXY · ベストアンサー

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

お礼

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

回答No.1

BLUEPIXY

実際には、試していないのですが、
参照ＵＲＬのソースの下の方
＞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)>