Hi, kann mit jemand erklären, warum diese 2 Funcs nicht auf jedem PC mit XP laufen? Auf machem Computern beenden Sie sich mit der Fehlermeldung The requested action with this object has failed
[autoit];===============================================================================
Func _ZipAdd($zipFile,$addFile)
Local $oShell, $oDir
$oShell = ObjCreate("Shell.Application")
[/autoit][autoit][/autoit][autoit]if IsObj($oShell) Then
$oDir = $oShell.NameSpace($zipFile)
$oDir.CopyHere ($addFile)
sleep (500)
Return 1
EndIf
Return 0
EndFunc
;===============================================================================
Func _ZipCreate($zipFile)
Local $i, $sHeader, $file, $err
$sHeader = "PK" & Chr(5) & Chr(6)
For $i =0 to 17
$sHeader &= Chr(0)
Next
$file = FileOpen($zipFile,2)
$err = FileWrite($file,StringToBinary($sHeader))
FileClose($file)
Return $err
EndFunc
Ich bin für jeden Lösungsansatz dankbar!
