[LIONSMILE]

Здравствуйте!

Прокопался весь день, но уже наверное туплю, так как не получается сделать копирование файлов из папки. Суть такова. Программа распаковывает из архива папку, которая содержит файлы. Имена как самой папки и так и файлов постоянно разные. Степень вложения (то есть папка в папке) тоже разная. Мне необходимо выбрать из всего количества файлов, только файлы с расширением *.doc и скопировать их в другую папку, допустим Z:\Work. Смотрел в сторону функций модуля System.IOUtils но там необходимо знать исходный (фиг с ним смогу найти) и выходные файлы, также смотрел CopyFile - тоже глухо. Файлов может быть различное количество. Пытался так, не копирует:

Код:

var
  s: string;
  Sl: TStringList;
  i: Integer;

FindFiles(ExtractFileDir(Application.ExeName) + '\Temp', '*.doc', Memo1.Lines, true);
    Sl := TStringList.Create;
    Sl.Text := Memo1.Text;
    begin
      for i := 0 to Sl.Count - 1 do
      begin
        s := Sl.Strings[i];
        copyfile(PChar(s), PChar('Z:\Work'), True);
      end;
      Sl.Free;
    end;

Что делаю не так?
Спасибо.

[LIONSMILE]

Сам спросил - сам ответил...

Код:

var
  FilesList: TStringList;
  i: Integer;
  sNew: string;
begin
  sNew := IncludeTrailingPathDelimiter('путь к папке в которую копируем');
  FilesList := TStringList.Create;
  try
    FilesList.LoadFromFile('имя файла со списком.txt'); //Загружаем список файлов.
    for i := 0 to FilesList.Count - 1 do
    begin
      if not FileExists(FilesList[i]) then 
        Continue; //Минуем не существующие файлы
      if not CopyFile(PChar(FilesList[i]), PChar(sNew + ExtractFileName(FilesList[i])), False) then //Путь назначения + старое имя
        ShowMessage('Ошибка при копировании файла: ' + FilesList[i]);
    end;
  finally
    FilesList.Free;
  end;
end;