Удаление старых CSV-файлов в директории на Delphi

Delphi , Синтаксис , Дата и Время

Вопрос, поднятый в данной теме, заключается в необходимости удаления файлов определенного типа (CSV) в директории, если они старше определенного количества дней. При этом файлы других типов должны оставаться нетронутыми. Рассмотрим, какие есть варианты решения этой задачи в среде разработки Delphi 10.1 Berlin.

Поиск встроенной функции в Delphi

Первым шагом было бы поискать встроенные функции в Delphi, которые могли бы помочь в решении данной задачи. Однако, как указано в "Подтвержденном ответе", такой функции встроенной в Delphi не существует, и необходимо прибегнуть к написанию собственной функции.

Решение задачи

Для решения задачи можно использовать функцию TUtilities.DeleteFilesOlderThanXDays, которая принимает путь к директории, количество дней, через которое файлы считаются "старыми", и маску файлов. Если параметр DaysOld установлен в 0, функция удалит все файлы без учета их возраста.

function TUtilities.DeleteFilesOlderThanXDays(
    Path: string;
    DaysOld: integer = 0; // 0 => Delete every file, ignoring the file age
    FileMask: string = '*.*'
): integer;
var
  iFindResult: integer;
  SearchRecord: tSearchRec;
  iFilesDeleted: integer;
begin
  iFilesDeleted := 0;
  iFindResult := FindFirst(TPath.Combine(Path, FileMask), faAnyFile, SearchRecord);
  if iFindResult = 0 then begin
    while iFindResult = 0 do begin
      if ((SearchRecord.Attr and faDirectory) = 0) then begin
        if (FileDateToDateTime(SearchRecord.Time) < Now - DaysOld) or (DaysOld = 0) then begin
          DeleteFile(TPath.Combine(Path, SearchRecord.Name));
          iFilesDeleted := iFilesDeleted + 1;
        end;
      end;
      iFindResult := FindNext(SearchRecord);
    end;
    FindClose(SearchRecord);
  end;
  Result := iFilesDeleted;
end;

В этом коде используется традиционный подход с использованием функций FindFirst, FindNext и FindClose для перебора файлов по маске. Файлы, которые соответствуют маске и имеют возраст, превышающий указанное количество дней, удаляются.

Также был предложен альтернативный подход с использованием компонента TDirectory и функции GetFiles, которая позволяет перебрать файлы, соответствующие заданному шаблону, и удалить их, если они старше заданного количества дней:

procedure DeleteFilesOlderThan(
  const Days: Integer;
  const Path: string;
  const SearchPattern: string = '*.*');
var
  FileName: string;
  OlderThan: TDateTime;
begin
  Assert(Days >= 0);
  OlderThan := Now() - Days;
  for FileName in TDirectory.GetFiles(Path, SearchPattern) do
    if TFile.GetCreationTime(FileName) < OlderThan then
      TFile.Delete(FileName);
end;

Оба подхода являются эффективными для решения поставленной задачи. Первый использует более "старую школу" программирования, в то время как второй демонстрирует использование более современных возможностей Delphi.

Заключение

В данной статье были рассмотрены два способа удаления старых CSV-файлов в директории на Delphi. Выбор метода зависит от предпочтений разработчика и конкретных требований проекта. Оба метода просты в реализации и могут быть легко интегрированы в существующий код.

Создано по материалам из источника по ссылке.

Вопрос связан с необходимостью разработки функции для удаления старых CSV-файлов в директории на платформе Delphi, не затрагивая файлы других типов и формата.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Дата и Время ::