I try to create a ZIP-file which it does, however, there are no file inside the ZIP-file ... it is simply empty??
It is expected to see a file called EEO.db3 inside the ZIP-file, but as you can see on the image there is no file there
Just a follow up question... which unit defines soStripDrive,soStripPath,soReplace for Abbrevia ?
procedure TForm1.ZipBtnClick(Sender: TObject);
var
Zip : TAbZipper;
ZipFileName: String;
begin
try
ZipFileName := BackupFileFolderEdit.Text+FormatDateTime('YYYYMMDD', Now())+'.EEO_Backup.zip';
Zip := TAbZipper.Create(Application);
Zip.LogFile := BackupFileFolderEdit.Text+FormatDateTime('YYYYMMDD', Now())+'.zip.log';
Zip.Logging := True;
Zip.ArchiveType := atZip;
Zip.BaseDirectory := ExtractFilePath(ZipFileName);
Zip.TempDirectory := GetTempDir;
Zip.CompressionMethodToUse := smBestMethod;
Zip.DeflationOption := doNormal;
// Zip.StoreOptions := [soStripDrive,soStripPath,soReplace];
Zip.FileName := ZipFileName;
Zip.AddFiles(ExtractFilePath(Application.ExeName)+'EEO.db3',0);
Zip.Save;
Zip.CloseArchive;
Zip.Free;
except
on E: Exception do
begin
ShowMessage(E.Message);
end;
end;
end;
I wonder what I am missing out here....
Thx in advance