[.NET] VB .NET 2008 entpacken per Command Line

 Dim p As New Process()
 Dim cbrPath As String = Chr(34) + Filename + Chr(34)
 p.StartInfo.FileName = RarPath
 p.StartInfo.Arguments = "e " + cbrPath + " c:\test\temp\"
 p.StartInfo.UseShellExecute = False
 p.StartInfo.RedirectStandardOutput = True
 p.StartInfo.CreateNoWindow = True
 Dim sOutput As String
 p.Start()
 sOutput = p.StandardOutput.ReadToEnd()
 p.WaitForExit()
 p.Close()
 If Not sPath.EndsWith("\") Then sPath = sPath & "\"
 Dim oDir As New System.IO.DirectoryInfo(sPath)
 Dim oFiles As System.IO.FileInfo() = oDir.GetFiles()
 Dim oFile As System.IO.FileInfo
 For Each oFile In oFiles
 If oFile.Name.EndsWith("jpg") Then ListBox1.Items.Add(oFile.Name)
 If oFile.Name.EndsWith("JPG") Then ListBox1.Items.Add(oFile.Name)
 If oFile.Name.EndsWith("gif") Then ListBox1.Items.Add(oFile.Name)
 If oFile.Name.EndsWith("GIF") Then ListBox1.Items.Add(oFile.Name)
 Next

 Private Const RAR_OM_LIST As Byte = 0
 Private Const RAR_OM_EXTRACT As Byte = 1
 ' Constantes de errores
 Private Const ERAR_NO_MEMORY As Byte = 11
 Private Const ERAR_BAD_DATA As Byte = 12
 Private Const ERAR_BAD_ARCHIVE As Byte = 13
 Private Const ERAR_EOPEN As Byte = 15
 Private Const ERAR_UNKNOWN_FORMAT As Byte = 14
 Private Const ERAR_SMALL_BUF As Byte = 20
 Private Const ERAR_ECLOSE As Byte = 17
 Private Const ERAR_END_ARCHIVE As Byte = 10
 Private Const ERAR_ECREATE As Byte = 16
 Private Const ERAR_EREAD As Byte = 18
 Private Const ERAR_EWRITE As Byte = 19
 ' Constantes operaciones
 Private Const RAR_SKIP As Byte = 0
 Private Const RAR_TEST As Byte = 1
 Private Const RAR_EXTRACT As Byte = 2
 ' Constantes del volumen
 Private Const RAR_VOL_ASK As Byte = 0
 Private Const RAR_VOL_NOTIFY As Byte = 1
 ' User Defined Types
 Structure RARHeaderData
 Dim ArcName As String
 Dim FileName As String
 Dim Flags As Long
 Dim PackSize As Long
 Dim UnpSize As Long
 Dim HostOS As Long
 Dim FileCRC As Long
 Dim FileTime As Long
 Dim UnpVer As Long
 Dim Method As Long
 Dim FileAttr As Long
 Dim CmtBuf As String ' Pointer (char *CmtBuf in C)
 Dim CmtBufSize As Long
 Dim CmtSize As Long
 Dim CmtState As Long
 End Structure
 Structure RAROpenArchiveData
 Dim ArcName As String ' Pointer (char *ArcName in C)
 Dim OpenMode As Long
 Dim OpenResult As Long
 Dim CmtBuf As String ' Pointer (char *CmtBuf in C)
 Dim CmtBufSize As Long
 Dim CmtSize As Long
 Dim CmtState As Long
 End Structure
 ' RAR DLL
 Public Declare Function RAROpen Lib "UnRAR.dll" Alias "RAROpenArchive" (ByRef RAROpenData As RAROpenArchiveData) As Long
 Public Declare Function RARClose Lib "UnRAR.dll" Alias "RARCloseArchive" (ByVal HandleToArchive As Long) As Long
 Public Declare Function RARReadHdr Lib "UnRAR.dll" Alias "RARReadHeader" (ByVal HandleToArcRecord As Long, ByRef ArcHeaderRead As RARHeaderData) As Long
 Public Declare Function RARProcFile Lib "UnRAR.dll" Alias "RARProcessFile" (ByVal HandleToArcHeader As Long, ByVal Operation As Long, ByVal DestPath As String, ByVal DestName As String) As Long
 Public Declare Sub RARSetChangeVolProc Lib "UnRAR.dll" (ByVal HandleToArchive As Long, ByVal Mode As Long)
 Public Declare Sub RARSetPassword Lib "UnRAR.dll" (ByVal HandleToArchive As Long, ByVal Password As String)
 '
 ' código
 '

 Function RARExtract(ByVal sRARArchive As String, ByVal sDestPath As String, Optional ByVal sPassword As String = "") As Integer
 ' Parámetros
 ' sRARArchive = nombre del fichero RAR
 ' sDestPath = Directorio de destino
 ' sPassword = Clave
 '(Opcional)
 ' REtorna
 ' Entero = 0 
 ' Falla()
 ' ' -1 Fallo al
 'abrir el fichero RAR
 ' ' >0
 'Número de ficheros extraidos

 Dim lHandle As Long
 Dim lStatus As Long
 Dim uRAR As RAROpenArchiveData
 Dim uHeader As RARHeaderData
 Dim iFileCount As Integer

 RARExtract = -1

 ' Open the RAR
 uRAR.ArcName = sRARArchive
 uRAR.OpenMode = RAR_OM_EXTRACT
 lHandle = RAROpen(uRAR) [color=red]<- Hier bleibt er hängen mit dieser Fehlermeldung[/color]
 ' Failed to open RAR ?
 If uRAR.OpenResult <> 0 Then Exit Function

 ' Password ?

 If sPassword <> "" Then
 RARSetPassword(lHandle, sPassword)
 End If

 ' Extract file(s)...

 iFileCount = 0
 ' Is there at lease one archived file to extract ?
 lStatus = RARReadHdr(lHandle, uHeader)
 Do Until lStatus <> 0
 ' Process (extract) the current file within the archive
 If RARProcFile(lHandle, RAR_EXTRACT, "", sDestPath + uHeader.FileName) = 0 Then
 iFileCount = iFileCount
 End If
 ' Is there another archived file in this RAR ?
 lStatus = RARReadHdr(lHandle, uHeader)
 Loop
 ' Close the RAR
 RARClose(lHandle)
 ' Return
 RARExtract = iFileCount
 End Function