| |
▼γ さん：
>後半部分は単なる思いつきです。
>別の方からAPIを利用したもっと良い案が出ると思いますので、
>いったんペンディングにしておいて下さい。
lzhがＡフォルダーの中にあるときの解凍方法は調べて試してみたのですが、
これは私のやりたいことには未だ遠く及びません。
'DLLを使う事を宣言する
Private Declare Function Unlha Lib "UNLHA32.DLL" (ByVal Callhwnd As Long, ByVal LHACommand As String, ByVal RetBuff As String, ByVal RetBuffSize As Long) As Long
Private Sub CommandButton1_Click()
'********* UnLHA32.DLLを使ってLZHファイルを解凍する *********
Dim Ret As String * 255 'UnLHAからの結果を入れるバッファ（長さ255バイト）
Dim SendStr As String 'コマンドﾞ文字列
Dim sourceFile As String '解凍する圧縮ファイル
Dim targetDir As String '解凍先ディレクトリ
Dim Result As Long '戻り値
Dim Msg1 As String
Dim oFolder As Object
targetDir = "C:\Temp\B" & "\" '初期値は 同じディレクトリに解凍。
sourceFile = "C:\Temp\A" & "\" & "*.lzh" 'もうこの辺からお手上げ
SendStr = "e " & sourceFile & " " & targetDir
'（スペースで区切っていることに注意）
Result = Unlha(0, SendStr, Ret, 255) 'UnLHA実行!
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
