コマンドラインからzip32j.dllを呼び出しての圧縮。

解決済

質問者：komugi100g
質問日時：2004/07/28 10:04
回答数：2件

今、WinXP HE上で、ソフトウェアを使わずに
DOS窓のコマンドラインからzip32j.dllを呼び出し
ファイルを圧縮しようと思ってるのですが、
rundll32からzip32jの中のどの関数を呼び、
どのように引数を渡したらよいのか、
zip32j.dllのソースを調べましたがわかりませんでした。
どなたかご存知の方があれば教えていただきたく思います。

また、もし他の方法をご存知であれば
そちらのほうもお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： ittochan
回答日時：2004/07/28 10:59

以前TransLha.ocxを使用した

CABファイルにファイルを追加する
スクリプトを作成しました。
参考になれば(VBScriptです)

Set oCb = CreateObject("TransLhaO.TransLha")
oCb.ArcMode=2
oCb.pBaseFolder = "C:\test"
oCb.pFilesClear
oCb.eArcFileName="C:\test\test.cab"
oCb.pAddFile "C:\test\test.txt"
oCb.Pack

- 0
- 件

通報する

この回答へのお礼

お時間を割いていただき、ありがとうございます。
大変助かりました。

自分はまだJScriptのほうが慣れてるので
次のように書き直させていただいたところ、
うまく動作しました。

var FSO = WScript.CreateObject("Scripting.FileSystemObject");
var otl = WScript.CreateObject("TransLhaO.TransLha");

otl.ArcMode = 1;
otl.pBaseFolder = FSO.GetAbsolutePathName(".\\");
otl.pFilesClear();
otl.pArcFileName = "圧縮先ファイル名.zip";
otl.pAddFile(FSO.GetAbsolutePathName("圧縮元ファイル名"));
otl.Pack();

通報する

お礼日時：2004/07/28 12:21

No.1

回答者： ittochan
回答日時：2004/07/28 10:48

ActiveXコンポーネントの

TransLha.ocx等を利用すれば

VBScriptかJScriptのスクリプトを書いて

コマンドプロンプトから
CScript.exe(Windowsに標準で付いてます)で
スクリプトを呼び出せば可能です。

参考URL：http://www.csdinc.co.jp/archiver/lib/activex/ind …