ich packe die Dateien in einen Verzeichnis mit XBZip
Code: Alles auswählen
oZip := XbZLibZip():New(exdir+"\ZipTest.zip")
if oZip:IsOpen(.t.)
oZip:AddDir('*.*', exdir , 'A', .F.)
else
msgbox("ZIP-Archiv konnte nicht erzeugt werden!","Problem")
endif
oZip:Close()
Habe ich da irgendeinen Parameter übersehen oder gibt es sonst eine einfache Lösung?