ich habe mir die neue PureZip Lib Heruntergeladen:
http://freenet-homepage.de/gnozal/
Ich habe nun in meiner Anwendung den befehl eingebaut und diese Lib entpackt meine Zip Datei leider nicht in das Ziel verzeichnis
Ich hatte das thema schon mal in "PureSetup" angesprochen...
hier ist der Bereich der Die Zip entpacken soll:
Code: Alles auswählen
Procedure OpenSkin(File$)
Debug "*.skin Datei = "+Str(FileSize(GetExePath()+"Skins\"+File$+".skin"))
Debug "*.zip Datei = "+Str(FileSize(GetExePath()+"Skins\"+File$+".zip"))
If FileSize(GetExePath()+"Skins\"+File$+".skin") > 0
File$ = File$ +".skin"
ElseIf FileSize(GetExePath()+"Skins\"+File$+".zip") > 0 ;Hier wird eine Datei geunden also das Ergebnis ist vorhanden
File$ = File$ +".zip"
Else
Debug "fehler"
ProcedureReturn -1
EndIf
If File$
Debug GetExePath()+"Skins\"+File$ ;Hier stimmt der Path und die datei
a = PureZIP_ExtractFiles(GetExePath()+"Skins\"+File$, "*.*", GetExePath()+"Temp\", #True)
Debug a ;Hier ist das Ergebnis 0 (Null)
ProcedureReturn 1
Else
ProcedureReturn -1
EndIf
EndProcedure
bei "UnpackMemory" kapiere ich irgentwie nicht wie dann die Dateien in das angegebene Verzeichnis gelangen und vorallem alle....
Danke für ggf. eine Antwort...