Delphi-PRAXiS - Delphizip entzippt keine Unterverzeichnisse?

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;