Всем привет! Я новичек в дельфи вот вопрос:
Необходимо сделать программу которая находит определенный файл на диске и копирует в папку
Код:
program Project1;
uses
SysUtils,
Windows;
var
F: TSearchRec;
Path: string;
Attr: Integer;
begin
Path := 'c:\1.txt';
Attr := faAnyFile;
FindFirst(Path, Attr, F);
if F.Name <> '' then
begin
CopyFile('1.txt' ,'c:\blablabla\1.txt',true);
end;
Ошибки компиляции не выдает но при этом ничего не происходит, файл не копируется.Спасибо заранее