[Ash]

Сообщение от nsl762

Всем привет! Я новичек в дельфи вот вопрос:
Необходимо сделать программу которая находит определенный файл на диске и копирует в папку

Код:

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;

Ошибки компиляции не выдает но при этом ничего не происходит, файл не копируется.Спасибо заранее

В первом параметре нужно указать полный путь к файлу. Не понятно то куда нужно взять 1.txt.
попробуй исправить
CopyFile('c:\1.txt' ,'c:\blablabla\1.txt',true);

И зачем ты указываешь строкой c:\1.txt если у тебя есть переменная Path
CopyFile(PChar(Path) ,'c:\blablabla\1.txt',true);