サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2011/03/22 11:43
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[他のアプリ関係][][] *
* キーワード：圧縮,解凍,LZH,ZIP,Unlha, *
***********************************************************************************
タイトル ： VB2005でLZHを解凍
記 事 No ： 10199
投 稿 日 ： 2010/08/24(Tue) 01:19
元質問者 ： 田淵
是非教えて頂きたいのですが、VB2005でのLZHの解凍するにはどうしたらよいでしょうか？
-----------------------------------------------------------------------------------
記事No ： 10209
投稿日 ： 2010/08/24(Tue) 14:12
回答者 ： 花ちゃん
-----------------------------------------------------------------------------------
下記を試して見て下さい。(コードを書いてしまっては勉強にならないのですが。)
但し、1行・1行 何をしているのか解析して下さい。
(Unlha の コマンド や スイッチ の意味も含めて)
Private Declare Function Unlha Lib "unlha32.dll" ( _
ByVal hWindows As IntPtr, _
ByVal CmdLine As String, _
ByVal Console As String, _
ByVal size As Integer) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim strConsole As String
Dim strCmdLine As String
strConsole = New String(CChar(" "), 256)
'c:\test.lzh ファイルをC:\test\ フォルダーへ解凍
strCmdLine = "e " & "c:\test.lzh " & "C:\test\"
Unlha(Me.Handle, strCmdLine, strConsole, 256)
End Sub
 |
