Topic: Удаление старых файлов из архива
Можно пример удаления файлов по дате их создания? Например все файлы за 2018 год.
My Visual Database → Russian → Удаление старых файлов из архива
Можно пример удаления файлов по дате их создания? Например все файлы за 2018 год.
Вот вариант удаления старше 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');
My Visual Database → Russian → Удаление старых файлов из архива
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi