Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB4, VB5, VB6 | 04.08.02 |
Datei aus einer CAB-Datei entpacken Eine Funktion, mit der sich Dateien aus einem CAB-Archivfile entpacken lassen. | ||
Autor: Steffen | Bewertung: | Views: 29.056 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit nachfolgender Funktion lässt sich eine bestimmte Datei aus einem CAB-Archivfile entpacken. Voraussetzung für das erfolgreiche Extrahieren ist, dass sich auf dem System die Microsoft Dynamic Link Library advpack.dll befindet.
' Deklaration Private Declare Function ExtractFiles Lib "advpack.dll" ( _ ByVal pszCabName As String, _ ByVal pszExpandDir As String, _ ByVal dwFlags As Long, _ ByVal pszFileList As String, _ lpReserved As Any, _ ByVal dwReserved As Long) As Long
Unsere Funktion ExtractFileFromCAB erwartet folgende Parameter:
- sCABFile: Pfad+Dateiname der CAB-Datei
- sDestPath: Verzeichnis, in das die zu extrahierende Datei entpackt werden soll
- sSourceFile: Dateiname, der Datei, die aus dem CAB-Archivfile extrahiert werden soll
' Datei aus einer CAB-Datei entpacken Private Function ExtractFileFromCAB( _ ByVal sCABFile As String, _ ByVal sDestPath As String, _ ByVal sSourceFile As String) As Boolean Dim lResult As Long On Error GoTo ExitFunction lResult = ExtractFiles(sCABFile, sDestPath, 0, _ sSourceFile, 0, 0) ExtractFileFromCAB = (lResult = 0) Exit Function ExitFunction: End Function
War die Funktion erfolgreich, wird TRUE zurückgegeben. Konnte die Datei nicht extrahiert werden, wird als Rückgabe der Wert FALSE zurückgegeben.