2013年01月07日 21時47分

VBS で ZIP圧縮してみる

Windows の バッチでZIP圧縮をする必要が出たので、ちょっと調べてみました GUIでZIP圧縮できるので、バッチでもできるだろうと思っていたのですが 残念ながら、標準のコマンドにはZIP圧縮はできないようです できれば圧縮用のソフトは入れたくなかったので、VBスクリプトでやってみようと思います https://www.csml.org/download/model/modelzipper/zip/ZIP.TXT こんなのを見つけました 一つ上のディレクトリーにVBスクリプトがあるようです 試したのは MakeExZIP.VBS ですがどうも Windows7 ではうまく動きません ie の起動とかしてますが、そこらへんでエラーになります また、圧縮ファイルの中のデータを置き換えるとき、ダイアログが出るので、カット＆ペーストで外に出すようなコーディングになっていますがどうも CUT が期待通りに動かないみたいです もともとコメントになっている、MoveHere の方にするとちゃんと動きました・・・ 日付が２００８年なんで XP とかだと元のままで動くのでしょうか？ Windows7 上で動くように修正したものを置いておきます ただし、置き換えはZIPファイルの中のデータを一旦削除してから、新しいファイルを圧縮するのでフォルダーを圧縮したときの挙動はGUIで行う場合の動きと違いますのでご注意ください ファイル操作のプロパティーやメソッドはここのサイトがサンプル等も豊富でわかりやすかったです ・VB の DataGridView ・VBScript の CreateObject ・VBS で ZIP圧縮してみる ・VISTAのタスクが動かない ・Windows2008 のタスクが動かない ・.NET の WebClient の接続が遅い

カテゴリー：日記