Hi,
habe folgendes Problem beim Entzippen mit delphizip.
Einige Dateien im Verzeichnis \\FBI-USERS02\Homedirs$\chanordonezv\Projekt14\ ,
lassen sich ohne Probleme entzippen, aber eine Datei im Verzeichnis
\\FBI-USERS02\Homedirs$\chanordonezv\Projekt14\neuer Ordner\
die vom selben Dateityp ist wie die anderen lässt sich nicht entzippen, vorher bricht das Programm mit Fehlermeldung ab.
Den Pfad dorthin übergebe ich mit der Stringliste filesfound.
Die Fehlermeldung scheint was mit dem Wert "unattended" des Zipmasters zu tun zu haben, setze ich ihn auf True,
erhalte ich den Fehler "unattended disk spanning not implemented".
Setze ich ihn auf False den Fehler "please insert last disk in drive\\FBI-USERS02\Homedirs$"
Vielleicht kann mir ja jemand helfen, wäre echt froh,
schon mal danke im Voraus,
Grüße,
kolibri
Hier kommt der Code:
Delphi-Quellcode:
procedure TForm1.entzippen;
var i:integer;
path:String;
begin
for i:=0 to ((filesfound.count)-1) do begin // Schleife über alle zu entzippenden Dateien
programmpath:= ExtractFilePath(Application.exename);
temppath:='\\FBI-USERS02\Homedirs$\chanordonezv\Projekt14\test'+inttostr(i); //Ordner in die entzippt werden soll
//zippath:='\\FBI-USERS02\Homedirs$\chanordonezv\Projekt14\';
zippath:= (ExtractFileDir(filesfound[i])+'\'); //< --hier werden die zu entzippenden Dateien übergeben
//z.B.\\FBI-USERS02\Homedirs$\chanordonezv\Projekt14\ -geht problemlos
//aber beim Aufruf von
// \\FBI-USERS02\Homedirs$\chanordonezv\Projekt14\NeuerOrdner\
// gibt es die Probleme.
zipname:= ExtractFileName(filesfound[i]);
extractMmp;
end;
end;
----
procedure TForm1.extractMmp;
begin
with Zipmaster1 do
begin
if not DirectoryExists(temppath)then forceDirectories(temppath);
DLLDirectory:=ExtractFilePath(ParamStr(0));
ZipFilename:=zippath+zipname;
ExtrOptions:=Extroptions+[ExtrDirnames, ExtrOverwrite];
ExtrBaseDir:=temppath;
FSpecArgs.Add('*.*');
Extract;
end;
end;