#1さんの指したURLのスクリプト、完璧です。 しかしコメントが無いと、確かに解読しづらいですねー わかりやすいように、コメントを追加し、パラメータも改造いたしました。 ZIP.VBSでは「optind」によって、パラメータのアイテムを切り替えているようですね。 質問者さんは、圧縮だけでよいみたいなので、汎用性を無くし、コードを抜粋いたします。 さらに「書庫ファイル名は固定」にしました。 ※サンプルの使用方法の注意!!! 以下のコードを、そのままテキストにコピペでは使えません。 全角スペースを利用しています。 対策は下の3つの方法から、どれかを利用してください。 ----------------------------------------------------------------- 1.テキストにコピペしてから、「全角スペース2個」を「TAB」に変換 2.テキストにコピペしてから
![VBScriptでファイル圧縮 - OKWAVE](https://cdn-ak-scissors.b.st-hatena.com/image/square/a3202632a5b19efa6d7dbcca644fc13bfa3453dc/height=288;version=1;width=512/https%3A%2F%2Fgazo.okwave.jp%2Fokwave%2Fspn%2Fimages%2Flogo%2Ffacebook_okwave.jpg)