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

[lampard762]

Всем привет! Нужно написать программу, чтобы находила файл и копировала в определенную папку. Вот примерный код

program Project1;

uses
  SysUtils,
  Windows;
var
  F: TSearchRec;
  Path: string;
  Attr: Integer;
begin
  Path := 'c:\1.txt';

  Attr := faAnyFile + faDirectory;

  FindFirst(Path, Attr, F);

  if F.Name <> '' then
  begin
    CopyFile('1.txt' ,'c:\blablabla\1.txt',true);
  end;

  end.

При запуске ничего не происходит. Помогите, спасибо заранее

[_-Re@l-_]

  Attr := faAnyFile + faDirectory;

Может я что - то не понял, но эт зачем?
И тем более, если уж текстовый файл, можно просто программно создать в нужной директории такой же файл с тем же именем и построчно копировать в него строки)))
Способ, конечно, наиглупейший, но работает))

[Stilet]

 CopyFile(Path,'c:\blablabla\1.txt',true);

Ибо эта функа должна принимать полные пути
Только весь этот код - кхм-гхм... Глупость ибо:

if FileExists(path) then CopyFile(Path,'c:\blablabla\1.txt',true);

Гораздо проще написать.