Und trotzdem klappt's nicht:Löschen kopieren und umbenennen

[turboPASCAL]

Zitat von DeddyH:

Tja, wenn man alle Hinweise im anderen Thread ignoriert: keine relativen Pfade, keine Wildcards, Ausgabe einer evtl. Fehlermeldung.

Delphi-Quellcode:

function _CopyFile(FromFilePathAndFilename, ToFilePath: string): bool;
var NewPathAndFileName: string;
begin
  Result := False;

  if FileExists(FromFilePathAndFilename) then
  begin
    ToFilePath := IncludeTrailingBackslash(ToFilePath);
    if DirectoryExists(ToFilePath) then
    begin
      NewPathAndFileName := ToFilePath + ExtractFileName(FromFilePathAndFilename);

      if CopyFile(PAnsiChar(FromFilePathAndFilename), PAnsiChar(NewPathAndFileName), False) then
      begin
        Result := True;
        ShowMessage('CopyFile klappte.');
      end else
        ShowMessage('CopyFile klappt nicht');

    end else
      ShowMessage('Verzeichnis "'+ToFilePath+'" nicht gefunden.');

  end else
    ShowMessage('Datei "'+FromFilePathAndFilename+'" nicht gefunden.');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  _CopyFile('C:\Temp\Otto.txt', 'C:\Users\User\Desktop\')
end;