Копирование файла с др. именем

[androdrev]

Зрасте программисты!

Проблема в следующем: копирую файл, (путь к исходному находится в переменной), притом имя конечного файла должно каждый раз увеличиваться на 1. Т.е. сначала копируется один файл как 1.txt, затем как 2.txt, 3.txt (можно и без расширения) и до бесконечности... Вот мой код:

     if CopyFile(Pchar(FILEE), Pchar('C:\Program Files\111\data\file'+string(I)), true) then
     begin
           if DeleteFile(Form1.Label3.Caption)
      then CompleteScan.Show
      else ShowMessage('Нельзя удалить!');
      I:=i+1;
      end
      else
      ShowMessage('Нельзя копировать');

Но где то ошибка, т.к. выдает "нельзя копировать".

[androdrev]

Сорри, разобралсо сам. Тема закрыта. Для тех, кто искал в поисковиках ответ прост: надо заенить string(I) на inttostr(i).

[bulldog5293]

Мне когда то помогали этим кодом

uses ... ShellApi;

procedure Tform1.CopyAFile(const Source, Dest: String);
var
  FileOp: TSHFileOpStruct;
  SS, DD: String;
begin
  SS := Source + #0;
  DD := Dest + #0;
  with FileOp do
  begin
    Wnd := 0;
    wFunc := FO_COPY;
    pFrom := PChar(SS);
    pTo := PChar(DD);
    fFlags := 0;
    hNameMappings := nil;
    lpszProgressTitle := nil
  end;
  SHFileOperation(FileOp)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyAFile('C:\Users\ArtGrek\Desktop\(14)','C:\(14)');
end;