Hi,
hier mal eine Möglichkeit Cab zu entpacken:
Gruß
~blaze~
hier mal eine Möglichkeit Cab zu entpacken:
VB.NET-Quellcode
- <System.Runtime.InteropServices.DllImport("advpack.dll")> _
- Private Shared Function ExtractFiles( _
- ByVal pszCabName As String, _
- ByVal pszExpandDir As String, _
- ByVal dwFlags As Integer, _
- ByVal pszFileList As String, _
- ByVal lpReserved As IntPtr, _
- ByVal dwReserved As Integer) As Integer
- End Function
- ''' <summary>
- ''' Extracts the content of a cabinet (.cab) file to a specified directory.
- ''' </summary>
- ''' <param name="cabFile">The file to extract.</param>
- ''' <param name="targetDirectory">The directory to extract to.</param>
- Public Shared Sub ExtractCABFile(ByVal cabFile As String, ByVal targetDirectory As String)
- ExtractCABFile(cabFile, targetDirectory, "*")
- End Sub
- ''' <summary>
- ''' Extracts the content of a cabinet (.cab) file to a specified directory.
- ''' </summary>
- ''' <param name="cabFile">The file to extract.</param>
- ''' <param name="targetDirectory">The directory to extract to.</param>
- ''' <param name="wildcard">The wildcard used to filter the content by their associated file names.</param>
- Public Shared Sub ExtractCABFile(ByVal cabFile As String, ByVal targetDirectory As String, ByVal wildcard As String)
- Dim lResult As Integer
- lResult = ExtractFiles(cabFile, targetDirectory, 0, wildcard, IntPtr.Zero, 0)
- If lResult <> 0 Then
- Throw New System.ComponentModel.Win32Exception(lResult)
- End If
- End Sub
Gruß
~blaze~
