Abbrevia + Folders

[japetos]

Wie bekomme ich es hin dass mir das Teil auch ganze Ordner zippt?

So sieht mein Code bisher aus:

Delphi-Quellcode:

         begin
          try
              AbZipper1.BaseDirectory := ExtractFilePath(FileName);
              AbZipper1.FileName := s;
              abZipper1.OpenArchive(s);
              AbZipper1.AddFiles(ExtractFileName(FileName), 0);
              AbZipper1.Save;
              AbZipper1.CloseArchive;
              ShowMessage(ExtractFileName(FileName) + ' zipped');
          except
          on E: Exception do
          ShowMessage('NO: ' + E.Message);
        end;
     end;