copyfile geht nicht

[Bjoerk]

Führ' das bitte mal aus und poste uns die Meldungen.

Delphi-Quellcode:

function TryResetFile(FileName: string): boolean;
var
  F: textFile;
  IO: integer;
begin
  AssignFile(F, FileName);
  {$I-} Reset(F); {$I+}
  IO:= IOResult;
  Result:= IO = 0;
  if not Result then
    MessageDlg(FileName+' ['+SysErrorMessage(IO)+'].', mtError, [mbOK], 0)
  else
    CloseFile(F);
end;

function TryRewriteFile(FileName: string): boolean;
var
  F: textFile;
  IO: integer;
begin
  AssignFile(F, FileName);
  {$I-} Rewrite(F); {$I+}
  IO:= IOResult;
  Result:= IO = 0;
  if not Result then
    MessageDlg(FileName+' ['+SysErrorMessage(IO)+'].', mtError, [mbOK], 0)
  else
    CloseFile(F);
end;

procedure TEinkaufsliste.BitBtn1Click(Sender: TObject);
begin
  TryResetFile('F:\KS\EV\ev.ini');
  TryRewriteFile('F:\KS\EV\EVSAVE\ev.ini')
  // Dein Code ..
end;