also ich hab das jetzt auch mal mit Abbrevia versucht.
einzelne Dateien kann ich packen, aber wenn ich es mit Directories probiere klappts nicht.
wie bekomme ich das hin?
Code:
AbZipper1.BaseDirectory := ExtractFilePath(FileName);
AbZipper1.FileName := 'C:\ZIPs\test.zip';
AbZipper1.AddFiles(ExtractFileName(FileName), 0);
AbZipper1.Save;
AbZipper1.CloseArchive;
ShowMessage(FileName + ' zipped');