Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


19296 / 76732 ←次へ | 前へ→

【62869】Re:バッチファイル
回答  yoshi  - 09/9/10(木) 0:37 -

引用なし
パスワード
   >『TEST01.lzh』という圧縮ファイルの中の
>各圧縮ファイル『001.THA』、『002.THA』、『003.THA』は解凍せず
>『TEST02.lzh』の『004.THA』、『005.THA』、『006.THA』と合わせて
>6個の圧縮ファイル001〜006THAファイルが入った『TEST.lzh』という圧縮ファイルにしたいのです。

以下のようなコードになりますが、適宜パスやスイッチ等は設定して下さい。
色々応用したければUNLHA32.DLLのドキュメント類を読んで下さい。

Private Declare Function Unlha Lib "unlha32" _
 (ByVal hWnd As Long, ByVal szCmdLine As String, ByVal szOutput As String, ByVal dwSize As Long) As Long
Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" _
 (ByVal lpPathName As String) As Long

Sub test1()
 Dim rt&
 SetCurrentDirectory ThisWorkbook.Path
 rt = Unlha(0, "j test.lzh test01.lzh test02.lzh", 0, 0)
 Debug.Print IIf(rt, "失敗", "成功")
End Sub
0 hits

【62820】バッチファイル じーた 09/9/6(日) 20:17 質問
【62821】Re:バッチファイル yoshi 09/9/7(月) 13:42 発言
【62824】Re:バッチファイル じーた 09/9/7(月) 18:35 質問
【62840】Re:バッチファイル yoshi 09/9/8(火) 14:32 発言
【62859】Re:バッチファイル じーた 09/9/9(水) 18:23 質問
【62869】Re:バッチファイル yoshi 09/9/10(木) 0:37 回答
【62871】Re:バッチファイル じーた 09/9/10(木) 10:40 お礼

19296 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free