エクセルVBA 自己解凍書庫作成

質問

下記コードで処理しています。WinSFX32設定画面を表示させないようにするには、
どうすればよろしいでしょうか？設定については、ウィンドウタイトル～解凍
後実行コマンドは、すべてブランクで、下段のチェックボックス欄はすべてチェ
ックを外したままにしたいのです。お手数ですが、よろしくお願いします。

Command = "a -a1 -r2 -x1 -jp1 -jm4 " & """" & LzNam & """" & " " & """" & XlNam & """"
Result = Unlha(0, Command, RetMsg, 255)

If Result = 0 Then
MsgBox RetMsg, vbInformation, "LZH 完了"
Else
MsgBox RetMsg, vbCritical, "LZH 失敗"
End If

Command = "s -jp1 -x1 -gw3 " & """" & LzNam & """" & " " & """" & ExNam & """"
Result = Unlha(0, Command, RetMsg, 255)

If Result = 0 Then
MsgBox RetMsg, vbInformation, "変換完了"
Else
MsgBox RetMsg, vbCritical, "変換失敗"
End If

回答No.2

Wendy02 · ベストアンサー

こんにちは。

あえて、全部のコードを出していないようですから、こちらも一部しか挙げませんが、

>-jp1 -x1
このスイッチは、SFX には関係ないのではありませんか？
単に、必要なものは、-n スイッチのみだと思います。

ヘルプより
#通常 UNLHA32.DLLは処理を行う際に通常状況を表示しますが， "-n" を指定することによりダイアログの表示を抑止することができます。

すでに、Lzhファイルは出来上がっていますので、その後は、このようにして行いました。

Const QT As String = """"
lzhNam = Left(FileName, InStrRev(FileName, ".") - 1)
lzhNam = QT & lzhNam & QT

Command = "s -gw3n " & lzhNam
Unlha hWnd, Command, RetMsg, 255

お礼

ご回答ありがとうございます。なるほど。試してみます。
COMMAND.TXTを再度よく読んでみます。

回答No.3

driverII

読み違えてました。

-gw3
が -gw4 ですね。

お礼

ありがとうございます。

回答No.1

driverII

「-gyq0」オプションを指定して、2回目のところで

Command = "s -jp1 -x1 -gw3 -gyq0" & """" & LzNam & """" & " " & """" & ExNam & """"

ではないでしょうか。

お礼

ご回答ありがとうございます。
-gyq0　は自動実行を指定する　とありますが・・・