WSHでVBScriptを使用してファイルを圧縮する最もシンプルなアルゴリズムを教えてください。

Question

WSHの世界へはファイルの一斉リネームや作業自動化が目当てで入りました。
現在は圧縮の部分を勉強中です。

そこで、様々なオンラインのリソースを拝見しましたがどれもエラー管理を含めたりや動作に一癖あるコードたちで仕組みの勉強には向きませんでした。
現在探しているのは最もシンプルな方法で圧縮できるアルゴリズムです。

-Dim objFSO = WScript.CreateObject("Scripting.FileSystemObject")"-
-Set objFile = objFSO.CreateTextFile(ZipFile, True)-

を用いてwindows標準の機能を使って圧縮を試みたいのです。
前文にもある通り純粋に圧縮の過程を学びたいので、エラー処理の部分は不要です。

また、拝見したコードの多くはZIPファイルを作成しその中にコピーしたいファイルを書き込むといったようなものですがこれが一般的でしょうか。

参考までに、WindowsPowerShellも検討してはみましたが、コマンドレット等新しく覚えるにはいささか煩雑で諦めました。
なんとかWSHでかつVBScriptを使う方向で行きたいと思っています。

よろしくお願い致します。

Answer 1

前文にもある通り純粋に圧縮の過程を学びたいので、エラー処理の部分は不要です。

ということなので、こちら（[WINDOWS] ZIPをスクリプトから実行したい）を紹介しておきます。

スクリプトからいくつかのファイルをまとめて圧縮するためのコマンドをさがしたところ、FreeBSDなどにあるzipコマンドのようなものがWindowsにはないらしい。

で、上記のリンクにもありますが、色々出回っているスクリプトの大元はどうやら、こちら（ZIPファイルを作成/追加/置換/削除/展開/表示するバッチファイル）のようです。
※紹介記事（Windows XPでコマンドラインからzip圧縮するためのスクリプト）

Comments

[kyosanta]

ありがとうございます。
大変参考になりました。

紹介して頂いたソース、じっくり研究させていただきます。

Answer 2

ご質問からは、圧縮処理そのものというよりはアーカイブ化の流れを把握したいということのように感じました。
zip以外ですと、cab形式での対応もできるかと思います。
検索すると下記ページがありましたので紹介します。

WSHでCABファイルをつくる。
http://kmaru.hatenablog.com/entry/20060214/1139931079

リンク先はJScriptでの実装のようでしたので、VBScriptでの実装を作成されるとよいかと思います。

また、拝見したコードの多くはZIPファイルを作成しその中にコピーしたいファイルを書き込むといったようなものですがこれが一般的でしょうか。

Windows標準機能のzip圧縮を用いて、という実装であれば一般的に行われる手続きだと思います。

Comments

[kyosanta]

ありがとうございます。
コードが随分すっきりしましたね。

と言うことはzipやrarなども同じ要領で作成できそうですね。
ZIPやrar作成に際しては紹介していただいたソースにWScript.CreateObjectのScripting.FileSystemObjectを使って作成出来るのでしょうか？
それとも、cabのような専用のメソッドないしプログラムidで指定した特定のプログラムを使わねばならないのでしょうか？
よろしくお願いします。

[退会済みユーザー]

Windowsが提供する機能の範囲内であればWSH上の処理として記述可能な場合もありますが、そうではない場合は外部プログラムを呼び出す形となるかと思います。
圧縮であれば7-Zipやlhaplus等のアプリケーションを利用することでの対応となります。

[kyosanta]

ありがとうございます！
大変勉強になりました。