Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4661 / 76732

←次へ　｜　前へ→


	【77689】Re:ｌｚｈを解凍する際、入っていたフォルダーの名前を付ける

ペンネーム船長 - 15/11/29(日) 22:05 -


	引用なし

	パスワード

▼γ さん：
>後半部分は単なる思いつきです。
>別の方から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

1 hits

▼

【77686】ｌｚｈを解凍する際、入っていたフォルダーの名前を付ける ペンネーム船長 15/11/29(日) 19:23