Оптимизация процесса копирования файлов в поддиректориях: Delphi-подход

Delphi , Интернет и Сети , Браузер

Задача копирования файлов в поддиректориях может показаться простой, но на практике она требует внимательности и правильного подхода. В данной статье мы рассмотрим, как можно оптимизировать процесс копирования файлов в поддиректориях с использованием языка программирования Object Pascal в среде разработки Delphi.

Проблема

Пользователь столкнулся с необходимостью копирования файлов из одной директории в другую, с учетом их размера и типа. В частности, ему нужно было скопировать все файлы .mp4 меньшие чем 1 ГБ в одну директорию, и файлы .mp4 большие чем 1 ГБ — в другую.

Исходный код

Исходный код, предоставленный пользователем, не учитывал поддиректории и не фильтровал файлы по типу и размеру. Кроме того, в коде были некоторые ошибки, такие как неправильная проверка атрибутов файлов и некорректное использование обработчика исключений.

Решение

Для решения задачи пользователя был предложен пример кода, который использует функции TDirectory.GetFiles и TFile.Copy из модуля IOUtils. Код рекурсивно обходит поддиректории, фильтрует файлы по размеру и копирует их в указанные директории.

procedure TForm1.Button1Click(Sender: TObject);
var
  aLargeFiles, aSmallFiles: TStringDynArray;
const
  LargeSize = 1024 * 1024 * 1024; // 1 ГБ
  SourcePath = 'C:\Users\Tool\Desktop\test\oldStuff\';
begin
  aLargeFiles := TDirectory.GetFiles(SourcePath, '*.mp4',
    TSearchOption.soAllDirectories,
    function (const Path, const SR: TSearchRec): Boolean
    begin
      Result := (SR.Size >= LargeSize);
    end);
  aSmallFiles := TDirectory.GetFiles(SourcePath, '*.mp4',
    TSearchOption.soAllDirectories,
    function (const Path, const SR: TSearchRec): Boolean
    begin
      Result := (SR.Size < LargeSize);
    end);
  CopyFilesToPath(aLargeFiles, 'C:\Users\Tool\Desktop\test\New_Stuff_Bigger_than_a_Gig\');
  CopyFilesToPath(aSmallFiles, 'C:\Users\Tool\Desktop\test\New_Stuff_Less_than_a_Gig\');
end;

procedure TForm1.CopyFilesToPath(const Files: TArray<string>; const DestPath: string);
var
  InFile, OutFile: string;
begin
  for InFile in Files do
  begin
    OutFile := TPath.Combine(DestPath, TPath.GetFileName(InFile));
    TFile.Copy(InFile, OutFile, True);
  end;
end;

Важные замечания

• Необходимо добавить модули IOUtils и Types в список используемых компонентов формы.
• Код должен быть адаптирован под конкретные пути и требования пользователя.
• Важно тестировать код на разных наборах данных, чтобы убедиться в его корректности.

Используя этот подход, пользователь сможет эффективно копировать файлы, учитывая их размер и тип, а также рекурсивно обрабатывать поддиректории.

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

Краткое руководство по оптимизации процесса копирования файлов в поддиректориях с фильтрацией по размеру и типу с использованием Delphi.

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

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

:: Главная :: Браузер ::