tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^5: VB2005でLZHを解凍
投稿日: 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。