zipとdgca形式のアーカイブファイルを一括で作成する。

Program DKUT software news 提案

http://d.hatena.ne.jp/studiokingyo/20050124#p3
から、少し、対策を考えた。
とりあえず、スクリプトやバッチで組むのががイイかと？
で、作ってみた。

zipとdgca形式のアーカイブファイルを一括で作る方法

必要なもの


バッチ版



mzp -X -9 -r %1.zip %1

dgcac a -w %1 %1
以上のテキストをバッチファイル（拡張子.batのテキストファイル)にする。
VBScript版


Option Explicit

Dim shell

Dim apath

Dim args

Dim i

Dim zip

Dim dgca
Set shell=CreateObject("WScript.Shell")

Set args = WScript.Arguments
For i = 0 to args.Count - 1

  apath = args(i)

  zip = "mzp -X -9 -r " +  apath + ".zip " + apath

  dgca = "dgcac a -w "  +  apath + " " + apath

  shell.Run( zip )

  shell.Run( dgca )

Next
WScript.Quit

以上のテキストを拡張子vbsのテキストファイルに書きこむ

使い方
最初にmzp.exeとdgcac.exeをパスの通っているフォルダに置く（またはパスを通す）
良く分からない場合は、WindowsフォルダやSystem32フォルダにでも入れておく。
テキストを保存したファイル名が「lump」だとする。
バッチ版の場合、



lump.bat フォルダ名
VBScript版の場合、


lump.vbs フォルダ名 ...　（続いて良し）
以上、何かありましたらコメントでも・・・。


参考サイト