I'm having trouble getting Abbrevia's FreshenFiles function to work.
I'm using this code and via debugging and the ShowMessage I see that FreshenFiles is being called (see screenshot) but still the archive is never refreshed or updated.
Does anyone have any tips or suggestions how i can get thsi to work properly?
iArchiveDate := FileAge(strZipFile);
Zip := TAbZipper.Create(nil);
Zip.FileName := strZipFile;
if bDifferential
then begin
for i := 0 to lstFilteredFiles.Count - 1 do
begin
if FileAge(lstFilteredFiles[i]) > iArchiveDate
then begin
showmessage('Freshening archive ' + strZipFile + ' for file ' + lstFilteredFiles[i]);
Zip.FreshenFiles(lstFilteredFiles[i]);
end;
end;
Zip.Save;
Zip.Free;
end;