Поиск и копирование файлов

uses
  FileCtrl, IniFiles;
 
type
  TInfo = record
    IniFile : TIniFile;
    SecName, RootPath : String; //Имя секции в ini файле и корень в целевом пути.
  end;
 
//Процедура копирует структуру папок из aPath1 в папку aPath2.
//И копирует файлы, соответствующие маске aMask.
//Если aMask = '', то маска принимается равной '*'.
procedure CopyFolder(const aPath1, aPath2, aMask : String; aInfo : TInfo);
const
  SelfName = 'CopyFolder()';
var
  Srd, Srf : TSearchRec;
  AttrD, AttrF : Integer;
  Path1, Path2, Mask, RelPath, S : 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 := '*';
  //Значение атрибутов, которое может соответствовать папкам.
  AttrD := faAnyFile - faVolumeID;
  //Значение атрибутов, соответствующее любым файлам, исключая тома и папки.
  AttrF := faAnyFile - faVolumeID - faDirectory;
 
  //Создаём целевую папку.
  ForceDirectories(Path2);
  //Определяем относительный путь. Это нужно для записи в ini файл.
  RelPath := Copy(Path2, Length(aInfo.RootPath) + 1, Length(Path2));
 
  //Перебор файлов, согласно маске.
  try
    if FindFirst(Path1 + Mask, AttrF, Srf) = 0 then
    repeat
      S := 'Нет';
      //На случай, если не надо перезаписывать уже существующие файлы.
      //if not FileExists(Path2 + Srf.Name) then begin
      if CopyFile(PChar(Path1 + Srf.Name), PChar(Path2 + Srf.Name), False) then
        S := 'Да';
      //end;
      //Для файлов с определёнными расширенями заносим сведения в ini файл.
      //Например, выполняем такую запись для файлов с расширением '.TXT'.
      if AnsiUpperCase( ExtractFileExt(Srf.Name) ) = '.TXT' then
        aInfo.IniFile.WriteString(aInfo.SecName, RelPath + Srf.Name, S);
    until FindNext(Srf) <> 0;
  finally
    FindClose(Srf);
  end;
 
  //Перебор всех папок.
  try
    if FindFirst(Path1 + '*', AttrD, Srd) = 0 then
    repeat
      //Если текущий объект является папкой и такая папка не является ссылкой
      //на саму себя '.' или на папку вышестоящего уровня '..', то выполняем
      //для неё рекурсивный вызов.
      if ( Srd.Attr and faDirectory = faDirectory )
        and (Srd.Name <> '.') and (Srd.Name <> '..')
      then
        CopyFolder(Path1 + Srd.Name, Path2 + Srd.Name, aMask, aInfo);
    until FindNext(Srd) <> 0;
  finally
    FindClose(Srd);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Mask, Path1, Path2 : String;
  Info : TInfo;
begin
  //Исходный путь.
  Path1 := Edit1.Text;
  //Целевой путь.
  Path2 := Edit2.Text;
  //Маска имён файлов.
  Mask := Edit3.Text;
 
  Path2 := IncludeTrailingPathDelimiter(Path2);
  ForceDirectories(Path2);
 
  //Создаём или открываем ini файл.
  Info.IniFile := TIniFile.Create(Path2 + 'data.ini');
  //Имя секции в виде текущего момента даты и времени.
  Info.SecName := FormatDateTime('dd.mm.yyyy"-"hh.nn.ss', Now);
  //Корневая папка.
  Info.RootPath := Path2;
  //Копирование.
  try
    CopyFolder(Path1, Path2, Mask, Info);
  finally
    FreeAndNil(Info.IniFile);
  end;
end;

RelPath := '';

...
implementation
 
{$R *.dfm}
 
uses
  FileCtrl, IniFiles;
 
type
  TInfo = record
    IniFile : TIniFile;
    SecName, RootPath : String; //Имя секции в ini файле и корень в целевом пути.
  end;
...

procedure CopyFolder(const aPath1, aPath2, aMask : String; aLog : TStrings);

var
  I : Integer;
begin
...
  I := 0;
  //Перебор файлов, согласно маске.
  try
    if FindFirst(Path1 + Mask, AttrF, Srf) = 0 then
    repeat
      //На случай, если не надо перезаписывать уже существующие файлы.
      //if not FileExists(Path2 + Srf.Name) then begin
      CopyFile(PChar(Path1 + Srf.Name), PChar(Path2 + Srf.Name), False);
      //end;
      //Для файлов с определёнными расширенями заносим сведения в ini файл.
      //Например, выполняем такую запись для файлов с расширением '.TXT'.
      inc(I);
      if AnsiUpperCase( ExtractFileExt(Srf.Name) ) = '.TXT' then
        aInfo.IniFile.WriteString(aInfo.SecName, Format('File%d', [I]), RelPath + Srf.Name);
    until FindNext(Srf) <> 0;
  finally
    FindClose(Srf);
  end;
...

implementation
 
{$R *.dfm}
 
type
  TInfo = record
    Log : TStrings;
    RootPath : String; //Корень в целевом пути.
  end;
 
//Процедура копирует структуру папок из aPath1 в папку aPath2.
//И копирует файлы, соответствующие маске aMask.
//Если aMask = '', то маска принимается равной '*'.
procedure CopyFolder(const aPath1, aPath2, aMask : String; aInfo : TInfo);
const
  SelfName = 'CopyFolder()';
var
  Srd, Srf : TSearchRec;
  AttrD, AttrF : Integer;
  Path1, Path2, Mask, RelPath : String;
  Res : Boolean;
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 := '*';
  //Значение атрибутов, которое может соответствовать папкам.
  AttrD := faAnyFile - faVolumeID;
  //Значение атрибутов, соответствующее любым файлам, исключая тома и папки.
  AttrF := faAnyFile - faVolumeID - faDirectory;
 
  //Создаём целевую папку.
  ForceDirectories(Path2);
  //Определяем относительный путь. Это нужно для записи в журнал.
  RelPath := Copy(Path2, Length(aInfo.RootPath) + 1, Length(Path2));
 
  //Перебор файлов, согласно маске.
  try
    if FindFirst(Path1 + Mask, AttrF, Srf) = 0 then
    repeat
      (*
      Res := False;
      //На случай, если не надо перезаписывать уже существующие файлы.
      if not FileExists(Path2 + Srf.Name) then begin
      *)
      //Копирование.
      Res := CopyFile(PChar(Path1 + Srf.Name), PChar(Path2 + Srf.Name), False);
      //end;
      //Для файлов с определёнными расширенями заносим сведения в журнал.
      //Например, выполняем такую запись для файлов с расширением '.TXT'.
      if (aInfo.Log <> nil) and Res
        and (AnsiUpperCase( ExtractFileExt(Srf.Name) ) = '.TXT')
      then
        aInfo.Log.Add(RelPath + Srf.Name);
    until FindNext(Srf) <> 0;
  finally
    FindClose(Srf);
  end;
 
  //Перебор всех папок.
  try
    if FindFirst(Path1 + '*', AttrD, Srd) = 0 then
    repeat
      //Если текущий объект является папкой и такая папка не является ссылкой
      //на саму себя '.' или на папку вышестоящего уровня '..', то выполняем
      //для неё рекурсивный вызов.
      if ( Srd.Attr and faDirectory = faDirectory )
        and (Srd.Name <> '.') and (Srd.Name <> '..')
      then
        CopyFolder(Path1 + Srd.Name, Path2 + Srd.Name, aMask, aInfo);
    until FindNext(Srd) <> 0;
  finally
    FindClose(Srd);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Mask, Path1, Path2 : String;
  Info : TInfo;
begin
  //Исходный путь.
  Path1 := Edit1.Text;
  //Целевой путь.
  Path2 := Edit2.Text;
  //Маска имён файлов.
  Mask := Edit3.Text;
 
  Path2 := IncludeTrailingPathDelimiter(Path2);
  ForceDirectories(Path2);
 
  //Создаём журнал.
  Info.Log := TStringList.Create;
  //Корневая папка.
  Info.RootPath := Path2;
  //Копирование.
  try
    CopyFolder(Path1, Path2, Mask, Info);
  finally
    Info.Log.SaveToFile(Info.RootPath + 'log.ini');
    FreeAndNil(Info.Log);
  end;
end;
 
end.

implementation
 
{$R *.dfm}
 
//Процедура копирует структуру папок из aPath1 в папку aPath2.
//И копирует файлы, соответствующие маске aMask.
//Если aMask = '', то маска принимается равной '*'.
procedure CopyFolder(const aPath1, aPath2, aMask : String; aLog : TStrings);
const
  SelfName = 'CopyFolder()';
var
  Srd, Srf : TSearchRec;
  AttrD, AttrF : Integer;
  Path1, Path2, Mask : String;
  Res : Boolean;
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 := '*';
  //Значение атрибутов, которое может соответствовать папкам.
  AttrD := faAnyFile - faVolumeID;
  //Значение атрибутов, соответствующее любым файлам, исключая тома и папки.
  AttrF := faAnyFile - faVolumeID - faDirectory;
 
  //Создаём целевую папку.
  ForceDirectories(Path2);
 
  //Перебор файлов, согласно маске.
  try
    if FindFirst(Path1 + Mask, AttrF, Srf) = 0 then
    repeat
      (*
      Res := False;
      //На случай, если не надо перезаписывать уже существующие файлы.
      if not FileExists(Path2 + Srf.Name) then begin
      *)
      //Копирование.
      Res := CopyFile(PChar(Path1 + Srf.Name), PChar(Path2 + Srf.Name), False);
      //end;
      //Для файлов с определёнными расширенями заносим сведения в журнал.
      //Например, выполняем такую запись для файлов с расширением '.TXT'.
      if (aLog <> nil) and Res
        and (AnsiUpperCase( ExtractFileExt(Srf.Name) ) = '.TXT')
      then
        aLog.Add(Srf.Name);
    until FindNext(Srf) <> 0;
  finally
    FindClose(Srf);
  end;
 
  //Перебор всех папок.
  try
    if FindFirst(Path1 + '*', AttrD, Srd) = 0 then
    repeat
      //Если текущий объект является папкой и такая папка не является ссылкой
      //на саму себя '.' или на папку вышестоящего уровня '..', то выполняем
      //для неё рекурсивный вызов.
      if ( Srd.Attr and faDirectory = faDirectory )
        and (Srd.Name <> '.') and (Srd.Name <> '..')
      then
        CopyFolder(Path1 + Srd.Name, Path2 + Srd.Name, aMask, aLog);
    until FindNext(Srd) <> 0;
  finally
    FindClose(Srd);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Mask, Path1, Path2 : String;
  Log : TStringList;
begin
  //Исходный путь.
  Path1 := Edit1.Text;
  //Целевой путь.
  Path2 := Edit2.Text;
  //Маска имён файлов.
  Mask := Edit3.Text;
 
  Path2 := IncludeTrailingPathDelimiter(Path2);
  ForceDirectories(Path2);
 
  //Создаём журнал.
  Log := TStringList.Create;
  //Копирование.
  try
    CopyFolder(Path1, Path2, Mask, Log);
  finally
    Log.SaveToFile(Path2 + 'log.ini');
    FreeAndNil(Log);
  end;
end;

//Процедура копирует структуру папок из aPath1 в папку aPath2.
//И копирует файлы, соответствующие маске aMask.
//Если aMask = '', то маска принимается равной '*'.
procedure CopyFolder(const aPath1, aPath2, aMask : String; aLog : TStrings);
const
  SelfName = 'CopyFolder()';
var
  Srd, Srf : TSearchRec;
  AttrD, AttrF : Integer;
  Path1, Path2, Mask : String;
  Res : Boolean;
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 := '*';
  //Значение атрибутов, которое может соответствовать папкам.
  AttrD := faAnyFile - faVolumeID;
  //Значение атрибутов, соответствующее любым файлам, исключая тома и папки.
  AttrF := faAnyFile - faVolumeID - faDirectory;
 
  //Создаём целевую папку.
  ForceDirectories(Path2);
 
  //Перебор файлов, согласно маске.
  try
    if FindFirst(Path1 + Mask, AttrF, Srf) = 0 then
    repeat
      (*
      Res := False;
      //На случай, если не надо перезаписывать уже существующие файлы.
      if not FileExists(Path2 + Srf.Name) then begin
      *)
      //Копирование.
      Res := CopyFile(PChar(Path1 + Srf.Name), PChar(Path2 + Srf.Name), False);
      //end;
      //Сведения о скопированных файлах записываем в журнал.
      if (aLog <> nil) and Res then aLog.Add(Srf.Name);
    until FindNext(Srf) <> 0;
  finally
    FindClose(Srf);
  end;
 
  //Перебор всех папок.
  try
    if FindFirst(Path1 + '*', AttrD, Srd) = 0 then
    repeat
      //Если текущий объект является папкой и такая папка не является ссылкой
      //на саму себя '.' или на папку вышестоящего уровня '..', то выполняем
      //для неё рекурсивный вызов.
      if ( Srd.Attr and faDirectory = faDirectory )
        and (Srd.Name <> '.') and (Srd.Name <> '..')
      then
        CopyFolder(Path1 + Srd.Name, Path2 + Srd.Name, aMask, aLog);
    until FindNext(Srd) <> 0;
  finally
    FindClose(Srd);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  PathIniRel = 'ini\';
  ShFileNameIni = 'data.ini';
var
  Mask, Path1, Path2, PathIni, FileNameIni, S : String;
  Log : TStringList;
  Fs : TFileStream;
begin
  //Исходный путь.
  Path1 := Edit1.Text;
  //Целевой путь.
  Path2 := Edit2.Text;
  //Маска имён файлов.
  Mask := Edit3.Text;
 
  //Путь к целевой папке.
  Path2 := IncludeTrailingPathDelimiter(Path2);
  ForceDirectories(Path2);
  //Путь к папке, где должен быть записан ini файл.
  PathIni := IncludeTrailingPathDelimiter(Path2 + PathIniRel);
  ForceDirectories(PathIni);
  //Полный путь к INI файлу.
  FileNameIni := PathIni + ShFileNameIni;
 
  //Создаём журнал.
  Log := TStringList.Create;
  //Копирование.
  try
    CopyFolder(Path1, Path2, Mask, Log);
  finally
    //Если INI файл существует, то открываем его.
    //Иначе - создаём INI файл и открываем его.
    if FileExists(FileNameIni) then
      Fs := TFileStream.Create(FileNameIni, fmOpenWrite + fmShareDenyWrite)
    else
      Fs := TFileStream.Create(FileNameIni, fmCreate);
    //Переводим указатель в конец потока.
    Fs.Position := Fs.Size;
 
    //Если перед записью журнала надо записать заголовок в INI.
    S := FormatDateTime('dd.mm.yyyy"-"hh.mm.ss.zzz', Now) + #13#10;
    Fs.Write(S[1], Length(S) * SizeOf(Char));
 
    //Запись журнала в файловый поток.
    Log.SaveToStream(Fs);
    FreeAndNil(Fs);
    FreeAndNil(Log);
  end;
end;

implementation
 
{$R *.dfm}
 
type
  TInfo = record
    Log : TStrings; //Журнал.
    Level : Integer; //Уровень вложенности папки относительно корня в целевой структуре.
  end;
 
//Процедура копирует структуру папок из aPath1 в папку aPath2.
//И копирует файлы, соответствующие маске aMask.
//Если aMask = '', то маска принимается равной '*'.
procedure CopyFolder(const aPath1, aPath2, aMask : String; aInfo : TInfo);
const
  SelfName = 'CopyFolder()';
var
  Srd, Srf : TSearchRec;
  AttrD, AttrF : Integer;
  Path1, Path2, Path3, Mask, Ext : String;
  Res : Boolean;
  Sl : TStringList;
begin
  //Текущий уровень вложенности относительно корня в целевой структуре.
  Inc(aInfo.Level);
  //Проверка путей.
  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 := '*';
  //Значение атрибутов, которое может соответствовать папкам.
  AttrD := faAnyFile - faVolumeID;
  //Значение атрибутов, соответствующее любым файлам, исключая тома и папки.
  AttrF := faAnyFile - faVolumeID - faDirectory;
 
  //Создаём целевую папку.
  ForceDirectories(Path2);
  //Обнуление ссылки на список.
  Sl := nil;
  //Перебор файлов, согласно маске.
  try
    if FindFirst(Path1 + Mask, AttrF, Srf) = 0 then
    repeat
      Path3 := Path2;
      //Для верхнего уровня выполняем распределение файлов по папкам.
      if aInfo.Level = 1 then begin
        //Получаем расширение файла.
        Ext := AnsiUpperCase( ExtractFileExt(Srf.Name) );
        //Если расширение не пустое.
        if (Ext <> '') then begin
          //По расширению уточняем целевой путь.
          Path3 := Path3 + Copy(Ext, 2, Length(Ext)) + '\';
          //Если список ещё не создан, то создаём его.
          if Sl = nil then Sl := TStringList.Create;
          if Sl.IndexOf(Ext) = -1 then begin
            Sl.Add(Ext);
            ForceDirectories(Path3);
          end;
        end;
      end;
      //Копирование.
      Res := CopyFile(PChar(Path1 + Srf.Name), PChar(Path3 + Srf.Name), False);
      //Сведения о скопированных файлах записываем в журнал.
      if (aInfo.Log <> nil) and Res then aInfo.Log.Add(Srf.Name);
    until FindNext(Srf) <> 0;
  finally
    FindClose(Srf);
    FreeAndNil(Sl);
  end;
 
  //Перебор всех папок.
  try
    if FindFirst(Path1 + '*', AttrD, Srd) = 0 then
    repeat
      //Если текущий объект является папкой и такая папка не является ссылкой
      //на саму себя '.' или на папку вышестоящего уровня '..', то выполняем
      //для неё рекурсивный вызов.
      if ( Srd.Attr and faDirectory = faDirectory )
        and (Srd.Name <> '.') and (Srd.Name <> '..')
      then
        CopyFolder(Path1 + Srd.Name, Path2 + Srd.Name, aMask, aInfo);
    until FindNext(Srd) <> 0;
  finally
    FindClose(Srd);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Относительный путь к целевой папке в которой следует расположить INI файл.
  PathIniRel = 'ini\';
  //Короткое имя INI файла.
  ShFileNameIni = 'data.ini';
var
  Mask, Path1, Path2, PathIni, FileNameIni, S : String;
  Info : TInfo;
  Fs : TFileStream;
begin
  //Исходный путь.
  Path1 := Edit1.Text;
  //Целевой путь.
  Path2 := Edit2.Text;
  //Маска имён файлов.
  Mask := Edit3.Text;
 
  //Путь к целевой папке.
  Path2 := IncludeTrailingPathDelimiter(Path2);
  ForceDirectories(Path2);
  //Путь к папке, где должен быть записан ini файл.
  PathIni := IncludeTrailingPathDelimiter(Path2 + PathIniRel);
  ForceDirectories(PathIni);
  //Полный путь к INI файлу.
  FileNameIni := PathIni + ShFileNameIni;
 
  //Создаём журнал.
  Info.Log := TStringList.Create;
  //Счётчик уровней вложенности папок в целевой структуре.
  Info.Level := 0;
  //Копирование.
  try
    CopyFolder(Path1, Path2, Mask, Info);
  finally
    //Если INI файл существует, то открываем его.
    //Иначе - создаём INI файл и открываем его.
    if FileExists(FileNameIni) then
      Fs := TFileStream.Create(FileNameIni, fmOpenWrite + fmShareDenyWrite)
    else
      Fs := TFileStream.Create(FileNameIni, fmCreate);
    //Переводим указатель в конец потока.
    Fs.Position := Fs.Size;
 
    //Если перед записью журнала надо записать заголовок в INI.
    S := FormatDateTime('dd.mm.yyyy"-"hh.mm.ss.zzz', Now) + #13#10;
    Fs.Write(S[1], Length(S) * SizeOf(Char));
 
    //Запись журнала в файловый поток.
    Info.Log.SaveToStream(Fs);
    FreeAndNil(Fs);
    FreeAndNil(Info.Log);
  end;
end;
 
end.

implementation
 
{$R *.dfm}
 
type
  TInfo = record
    Log, Map : TStrings; //Журнал и карта соответствий директорий расширениям файлов.
    Level : Integer; //Уровень вложенности папки относительно корня в целевой структуре.
  end;
 
//Процедура копирует структуру папок из aPath1 в папку aPath2.
//И копирует файлы, соответствующие маске aMask.
//Если aMask = '', то маска принимается равной '*'.
procedure CopyFolder(const aPath1, aPath2, aMask : String; aInfo : TInfo);
const
  SelfName = 'CopyFolder()';
var
  Srd, Srf : TSearchRec;
  AttrD, AttrF : Integer;
  Path1, Path2, Path3, Ext, Mask : String;
  Res : Boolean;
begin
  //Текущий уровень вложенности относительно корня в целевой структуре.
  Inc(aInfo.Level);
  //Проверка путей.
  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 := '*';
  //Значение атрибутов, которое может соответствовать папкам.
  AttrD := faAnyFile - faVolumeID;
  //Значение атрибутов, соответствующее любым файлам, исключая тома и папки.
  AttrF := faAnyFile - faVolumeID - faDirectory;
 
  //Создаём целевую папку.
  ForceDirectories(Path2);
  //Перебор файлов, согласно маске.
  try
    if FindFirst(Path1 + Mask, AttrF, Srf) = 0 then
    repeat
      Path3 := Path2; //Уточнённый целевой путь. - В зависимости от расширения файла.
      //Получаем расширение файла.
      Ext := AnsiUpperCase( ExtractFileExt(Srf.Name) );
      //Для верхнего уровня на основе расширений выполняем распределение файлов по папкам.
      if aInfo.Level = 1 then begin
        //По расширению уточняем целевой путь.
        Path3 := Path3 + aInfo.Map.Values[Ext];
        //Создаём целевую папку, если она ещё не создана.
        ForceDirectories(Path3);
      end;
      //Копирование.
      Res := CopyFile(PChar(Path1 + Srf.Name), PChar(Path3 + Srf.Name), False);
      //Сведения о скопированных ".AMXX" файлах записываем в журнал.
      if (aInfo.Log <> nil) and Res and (Ext = '.AMXX') then aInfo.Log.Add(Srf.Name);
    until FindNext(Srf) <> 0;
  finally
    FindClose(Srf);
  end;
 
  //Перебор всех папок.
  try
    if FindFirst(Path1 + '*', AttrD, Srd) = 0 then
    repeat
      //Если текущий объект является папкой и такая папка не является ссылкой
      //на саму себя '.' или на папку вышестоящего уровня '..', то выполняем
      //для неё рекурсивный вызов.
      if ( Srd.Attr and faDirectory = faDirectory )
        and (Srd.Name <> '.') and (Srd.Name <> '..')
      then
        CopyFolder(Path1 + Srd.Name, Path2 + Srd.Name, aMask, aInfo);
    until FindNext(Srd) <> 0;
  finally
    FindClose(Srd);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Относительный путь к целевой папке в которой следует расположить INI файл.
  PathIniRel = 'configs\';
  //Короткое имя INI файла.
  ShFileNameIni = 'plugins.ini';
var
  Mask, Path1, Path2, PathIni, FileNameIni, S : String;
  Info : TInfo;
  Fs : TFileStream;
begin
  //Исходный путь.
  Path1 := Edit1.Text;
  //Целевой путь.
  Path2 := Edit2.Text;
  //Маска имён файлов.
  Mask := Edit3.Text;
 
  //Путь к целевой папке.
  Path2 := IncludeTrailingPathDelimiter(Path2);
  ForceDirectories(Path2);
  //Путь к папке, где должен быть записан ini файл.
  PathIni := IncludeTrailingPathDelimiter(Path2 + PathIniRel);
  ForceDirectories(PathIni);
  //Полный путь к INI файлу.
  FileNameIni := PathIni + ShFileNameIni;
 
  //Создаём журнал.
  Info.Log := TStringList.Create;
  //Создаём карту соответствий.
  Info.Map := TStringList.Create;
  //Заполняем карту соответствий.
  //Содержимое можно загрузить из файла через: Info.Map.LoadFromFile().
  Info.Map.Add('.AMXX=plugins\');
  Info.Map.Add('.SMA=scripting\');
  Info.Map.Add('.CFG=configs\');
  Info.Map.Add('.INI=configs\');
  Info.Map.Add('.TXT=amxmodx\data\lang\');
  //Счётчик уровней вложенности папок в целевой структуре.
  Info.Level := 0;
  //Копирование.
  try
    CopyFolder(Path1, Path2, Mask, Info);
  finally
    //Если INI файл существует, то открываем его.
    //Иначе - создаём INI файл и открываем его.
    if FileExists(FileNameIni) then
      Fs := TFileStream.Create(FileNameIni, fmOpenWrite + fmShareDenyWrite)
    else
      Fs := TFileStream.Create(FileNameIni, fmCreate);
    //Переводим указатель в конец потока.
    Fs.Position := Fs.Size;
 
    //Если перед записью журнала надо записать заголовок в INI.
    //S := FormatDateTime('dd.mm.yyyy"-"hh.mm.ss.zzz', Now) + #13#10;
    Fs.Write(S[1], Length(S) * SizeOf(Char));
 
    //Запись журнала в файловый поток.
    Info.Log.SaveToStream(Fs);
    FreeAndNil(Fs);
    FreeAndNil(Info.Log);
    FreeAndNil(Info.Map);
  end;
end;
 
end.