Datei aus einer CAB-Datei entpacken Eine Funktion, mit der sich Dateien aus einem CAB-Archivfile entpacken lassen.
Autor:   Steffen	Bewertung:     [ Jetzt bewerten ]	Views:  30.298
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 40 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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.