Kopiering af fil.

Der er flere måder, winapi CopyFile(), eller en MemoryStream, CopyFile er nok det nemmereste, kan ikke lige huske om den kan rename samtidig :)

ehm ... kunne du være lidt mere specifik? Kan intet finde om copyfile i delphi help.

Problemet er at jeg ikke har delphi installeret mere, du kan evt. prøve at søge i winapi-hjælpen, det er muligt den hedder filecopy(), men ellers kan du create en TMemoryStream og bruge LoadFromFile() og SaveToFile() på den.

/Martin

Copyfile(Pchar('fil der skal copieres'),pchar('hvor den skal copieret til samt filnavn'),false);

Du kan jo prøve med denne her:

procedure Kopierfil(f1, f2 : string);
var FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
  try
    AssignFile(FromF, f1);
    Reset(FromF, 1);    { Record size = 1 }
    AssignFile(ToF, f2);    { Open output file }
    Rewrite(ToF, 1);    { Record size = 1 }
    form1.Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
        + ' bytes...');
    repeat
      BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
      BlockWrite(ToF, Buf, NumRead, NumWritten)
    until (NumRead = 0) or (NumWritten <> NumRead);
    CloseFile(FromF);
    CloseFile(ToF)
    except
      showmessage('Fejlmeldning')
    end
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  kopierfil('C:\project1.exe','C:\project2.exe' )
end;

Eller som du skriver:

  kopierfil('fil.ext','fil.bak')

Det gode ved proceduren er, at den kan kopiere alle filtyper - og så oven i købet meget hurtigt.

Glemte lige at skrive det.