| |
>『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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
