Ich möchte mit Hilfe dieser ZIP UDF eine .jar entpacken.
Geht mit Winrar z. B. auch.
Zuerst nenn ich sie zu ".zip" um, und entpacke sie dann.
Ein kleiner Teil wird kopiert, und dann erhalt ich error 7 - Failed to extract file(s).
Woran liegt das ?
Hab es auch schon mit ner anderen UDF probiert, da krieg ich dann zwar kein Error, er entpackt trotzdem nur einen Teil.
Script:
Spoiler anzeigen
Func _change()
If(((StringInStr(GUICtrlRead($input1),".png") <> 0) And (StringInStr(GUICtrlRead($combo1),".png") <> 0)) Or ((StringInStr(GUICtrlRead($input1),".txt") <> 0) And (StringInStr(GUICtrlRead($combo1),".txt") <> 0))) Then
If Not FileExists($ordner&"\temp") Then DirCreate($ordner&"\temp")
FileCopy(@AppDataDir&"\.minecraft\bin\minecraft.jar",$ordner&"\minecraft.zip",1)
;MsgBox(0,"","copy "&@error)
_Zip_DeleteItem($ordner&"\minecraft.zip", $sFileName)
MsgBox(0,"","deleteitem: "&@error)
_Zip_AddItem($ordner&"\minecraft.zip", GUICtrlRead($input1), "\textures\blocks\"&guictrlread($combo1), 1)
MsgBox(0,"","additem: "&@error)
FileMove($ordner&"\minecraft.zip",@AppDataDir&"\.minecraft\bin\minecraft.jar",1)
MsgBox(0,"","filemove: "&@error)
Endfunc
Ich möchte in der Minecraft.jar eine .png oder .txt durch eine andere Datein mit der gleichen Endung ersetzen.
"guictrlread($combo1)" ist der Name der zu ersetzende Datei. (z.B. "dirt.png")
"guictrlread($input1)" ist der Pfad zur neuen .png oder .txt.