Abbrevia + Folders

[trifid]

Hallo japetos,
probiers mal damit

Delphi-Quellcode:

   
   try
      AbZipper1.BaseDirectory := 'C:\mypath\';
      AbZipper1.FileName := 'my.zip';
      AbZipper1.StoreOptions := [soStripDrive, soRemoveDots, soRecurse];
      AbZipper1.AddFiles('*.*', faReadOnly + faDirectory + faArchive + faAnyFile);
      AbZipper1.Save;
      AbZipper1.CloseArchive;

      ShowMessage('zipped');
   except
      on E: Exception do ShowMessage('NO: ' + E.Message);
   end;

geht natürlich auch mit
AbZipper1.AddFiles('*.*', 0);