• Registered: 2018-02-26
  • Posts: 4

Topic: Удаление старых файлов из архива

Можно пример удаления файлов по дате их создания? Например все файлы за  2018 год.

2 Reply by abgroup-artur (edited by abgroup-artur 2020-09-23 15:04:39)

  • Registered: 2016-09-28
  • Posts: 112

Re: Удаление старых файлов из архива

Вот вариант удаления старше 7 дней

Сам файл создаю так : 

//  Создание резервной копии БД при выходе и закрытие программы
     CopyFile('sqlite.db', 'Backup/backup '+ FormatDateTime('dd-mm-yyyy-hh-nn-ss', now)+'-Close.db');  // запись резервного файла БД
procedure DelOldFiles(path: string);
var
    s: TStringList;
    i,c: integer;
    YY, MM, DD: string;
    dt: TDateTime;
    days: integer;
begin
    s:= TStringList.Create;
    s.Text := GetFilesList(path);

    c := s.Count-1;
    for i := 0 to c do
    begin
         DD := Copy(s[i], 15, 2);
         MM := Copy(s[i], 18, 2);
         YY := Copy(s[i], 21, 4);

         dt := EncodeDate(StrToInt(YY),StrToInt(MM),StrToInt(DD));

         days:= DaysBetween(Now,dt);
         if days>7 then deletefile(s[i]);
    end;
    s.Free;
end

 //Удаление старых копий старше 7 дней

     DelOldFiles('Backup');