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:

zusammenfalten · markieren

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;

Vielleicht liegt es am Leerzeichen im Pfad. Schon mal mit einem Unterordner ohen Leerzeichen versucht?

Es hat gedauert, aber jetzt hab ich den Fehler gefunden:
Ich habe einen Wert falsch übergeben!
Trotzdem danke für die Hilfe!
Grüße,
kolibri