wenn ich mit xbzlip ein Archiv entpacke, werden bei mir die Unterverzeichnisse nicht angelegt, ich bekomme nur eine Fehlermeldung im Logfile dass der Pfad nicht vorhanden ist, z.B.
2015-11-24 10:47:40.87> Error while Saving File "\uniflex\sysupdate\install\rep\artums1.fr3":
Error Code: 3 -- Das System kann den angegebenen Pfad nicht finden.!
Das ist meine Funktion zum entpacken:
Code: Alles auswählen
static function ExtractFromArchive(cArc,cDir)
******************************************************************
LOCAL oZip := XbZLibZip():New(),lSubD := .t.,cFSpec := "*.*",cRepl := "N"
LOCAL nOvr := XBZ_OVERWRITE_OLDER
oZip:Log:Open(left(cArc, At('.zip', lower(cArc))) + 'log')
if left(upper(cRepl), 1) == 'A'
nOvr := XBZ_OVERWRITE_ALL
elseif left(upper(cRepl), 1) == 'N'
nOvr := XBZ_OVERWRITE_NEVER
endif
oZip:SetDisplayObject(SetAppWindow())
oZip:Open(cArc, XBZ_OPEN_READ)
if oZip:IsOpen()
oZip:Extract(cDir, cFSpec, lSubD, nOvr)
endif
oZip:Close()
return .t.
Grüße
Rudolf