Cab-Dateien entpacken: wildcard ?

Jason · 29. April 2015, 18:43

Hallo,

EIn Code zum entpacken von Cab-Dateien: Cab-Dateien entpacken

Im Code befindet sich die Variable "wildcard".
Was muss ich dieser Variable zuweisen?

*Topic verschoben*

Marcus Gräfe · 29. April 2015, 20:05

Siehe "NOTES" unter marc.info/?l=wine-cvs&m=113683646103057&w=2

Jason · 29. April 2015, 20:15

So ganz vertehe ich das ganze aber nicht.
Kannst du mir das mal genauer erklären?

ichduersie · 29. April 2015, 22:17

Lese doch einfach den XML-Kommentar:

XML-Quellcode

<param name="wildcard">The wildcard used to filter the content by their associated file names.</param>

Jason · 30. April 2015, 14:17

Kann wildcard auch leer übergeben werden?
Oder muss die Datei, die entpackt werden soll in wildcard geschrieben werden?

ichduersie · 30. April 2015, 16:57

Ich hab keine Ahnung, aber dem Kommentar entnehme ich, dass du dem auch "" übergeben kannst.

Probieren geht über studieren...

Jason · 30. April 2015, 17:26

Ich bekomme eine Fehlermeldung: Unbekannter Fehler

SeriTools · 30. April 2015, 17:46

versuchs mal mit "*.*"

Thunderbolt · 30. April 2015, 18:02

Oder auch nur *. Das passt dann auch auf Dateinamen ohne Erweiterung.

SeriTools · 30. April 2015, 19:22

@Thunderbolt Bist wohl viel unter Linux unterwegs.

Unter Windows bedeutet *.* alle Dateien, * bedeutet Dateien ohne Endung.
Unter Linux bedeutet * alle Dateien, *.* bedeutet Dateien mit Endung.

Schamash · 30. April 2015, 19:28

Hmmm, Sicher?

Jason · 30. April 2015, 19:36

*.* Funktioniert seltsamerweise nicht.

Hier der Code: (Vieleicht habe ich das übersehen)

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
Public Shared Sub ExtractCABFile(ByVal cabFile As String, ByVal targetDirectory As String)
ExtractCABFile(cabFile, targetDirectory, "*")
End Sub
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

VB.NET-Quellcode

ExtractCABFile(CDPfad & "Data_1.cab", "D:\Data\", "*")
ExtractCABFile(CDPfad & "Data_2.cab", "D:\Data\", "*")

SeriTools · 30. April 2015, 20:41

@Schamash Die Windowssuche da matcht ja auch Teilstrings, deshalb funktioniert da * auch.

In der CMD und in WinAPI-basierten Funktionen wie z.B. GetFiles/EnumerateFiles gilt mein obiger Post aber. Deshalb bin ich davon ausgegangen dasses auch hier funktioniert.

Jason · 30. April 2015, 20:54

Der Fehler tritt hier auf:

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 <--- Fehlermeldung: Unbekannter Fehler.
End Sub

Marcus Gräfe · 3. Mai 2015, 00:49

Welchen Wert hat denn CDPfad? Beachte, dass der zwingend ein \ am Ende haben muss, da du danach keinen machst. Aber ich denke, der Fehler liegt darin, dass du den Parameter dwFlags vergessen hast. Kann vermutlich einfach 0 sein.

Jason · 3. Mai 2015, 02:56

Der Wert der Variable ist E:\

ichduersie · 3. Mai 2015, 09:31

Jason schrieb:

VB.NET-Quellcode

If lResult <> 0 Then

Throw New System.ComponentModel.Win32Exception(lResult)

End If

Schau dir doch mal genau an, was da bei If lresult <> 0 gemacht wird.

Und wenn du den Fehler gefunden hast, dann setze mal am Anfang der Sub einen Haltepunkt und steppe im Einzelschritt durch und schau dir nach jedem Schritt die Werte der Variablen an. Sowas passiert eben auch nur bei C&P, wenn man ohne überhaupt mal nachzusehen, was der Quellcode macht, einfach alles kopiert.

Edit: Habe mir mal die Originalsource angeschaut. Hättest du dir diese mal durchgelesen (ist ja nicht soviel), dann wäre die ganze Sache mit der Wildcard (Cab-Dateien entpacken: wildcard ? <- Verlinkung auf diesen Thread hier) nie aufgetreten.

Cab-Dateien entpacken: wildcard ?

Cab-Dateien entpacken: wildcard ?

XML-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Jason schrieb:

VB.NET-Quellcode

Ähnliche Themen

6 Benutzer haben hier geschrieben