Поиск и копирование файлов - Delphi - Ответ 3528226

uses
  FileCtrl;
 
//Процедура копирует структуру папок из aPath1 в папку aPath2.
//И копирует файлы, соответствующие маске aMask.
//Если aMask = '', то маска принимается равной '*'.
procedure CopyFolder(const aPath1, aPath2, aMask : String);
const
  SelfName = 'CopyFolder()';
var
  Sr : TSearchRec;
  Attr : Integer;
  Path1, Path2, Mask : String;
begin
  //Проверка путей.
  Path1 := aPath1;
  Path2 := aPath2;
  if Path1 = '' then
    raise Exception.Create(SelfName + '. Не задан путь к исходной папке.');
  if not DirectoryExists(Path1) then
    raise Exception.Create(SelfName + '. Путь к исходной папке не найден.');
  if Path2 = '' then
    raise Exception.Create(SelfName + '. Не задан путь к целевой папке.');
  //Добавление завершающего слеша в пути.
  Path1 := IncludeTrailingPathDelimiter(Path1);
  Path2 := IncludeTrailingPathDelimiter(Path2);
  //Маска имён файлов.
  Mask := aMask;
  if Mask = '' then Mask := '*';
  //Значение атрибутов, соответствующее любым файлам, исключая тома.
  Attr := faAnyFile - faVolumeID;
 
  //Создаём целевую папку.
  ForceDirectories(Path2);
  //Копирование содержимого.
  try
    if FindFirst(Path1 + Mask, Attr, Sr) = 0 then
    repeat
      //Если найдена папка.
      if (Sr.Attr and faDirectory) = faDirectory then begin
        //Если папка не является ссылкой на саму себя '.' или на папку
        //вышестоящего уровня '..', то выполняем для неё рекурсивный вызов.
        if (Sr.Name <> '.') and (Sr.Name <> '..') then
          CopyFolder(Path1 + Sr.Name, Path2 + Sr.Name, aMask);
      //Если найден файл - копируем его.
      end else
        CopyFile(PChar(Path1 + Sr.Name), PChar(Path2 + Sr.Name), False);
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Mask, Path1, Path2 : String;
begin
  //Исходный путь.
  Path1 := Edit1.Text;
  //Целевой путь.
  Path2 := Edit2.Text;
  //Маска имён файлов.
  Mask := Edit3.Text;
 
  //Копирование.
  CopyFolder(Path1, Path2, Mask);
end;

end else
  CopyFile(PChar(Path1 + Sr.Name), PChar(Path2 + Sr.Name), False);

end else if not FileExists(Path2 + Sr.Name) then
  CopyFile(PChar(Path1 + Sr.Name), PChar(Path2 + Sr.Name), False);