Всем привет! Я новичек в дельфи вот вопрос:
Необходимо сделать программу которая находит определенный файл на диске и копирует в папку
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | 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;
|
Ошибки компиляции не выдает но при этом ничего не происходит, файл не копируется.Спасибо заранее
22.06.2010, 20:16
Помогите с программой поиска
Древовидный вид