RenameFile funktioniert nicht !!!

[Metallicwar]

Hallo zusammen, habe zwar über die SuFu schon einige Threads zu "RenameFile" gefunden, aber keins, das mir bei meinem Problem wirklcih weiterhilft.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iDatensätze: Integer;
  sNeueDatei: String;
  sAlteDatei: String;
begin
  qMensch.SQL.Text := 'SELECT Name, Vorname, Geburtsname FROM Mensch';

  qMensch.Open;

  qMensch.First;
  for iDatensätze := 0 to qMensch.RecordCount - 1 do
    begin
      sNeueDatei := qMensch.FieldByName('Name').AsString + '_' + qMensch.FieldByName('Vorname').AsString; // --> heißt dann z.B. Mark_Mustemann.txt
      sAlteDatei := qMensch.FieldByName('Geburtsname').AsString; --> z.B. MarC_Mustermann.txt
      //ShowMessage(sNeueDatei);
      SysUtils.RenameFile(sAlteDatei, sNeueDatei);//--> ändert den namen einfach nicht
      qMensch.Next;
    end;
end;

end.

Hab in einem anderen Beitrag gelesen, dass RenameFile nurfunktioniert, wenn die Datei im selben Verzeichnis liegt.
Kann mir jmd sagen, wieso, RenamFile bei mir nicht funktioniert?
mfg David

[mkinzler]

Erzeuge die Dateinamen mit kompletten Pfad

[Satty67]

Ganz allgemein kann man sich bei Systemfunktionen auch sagen lassen, warum es nicht funktioniert.

Also konkret nach RenameFile ein
ShowMessage(SysErrorMessage(GetLastError));

[Metallicwar]

SysUtils.RenameFile('C:\DatabaseDir\Mensch\' + sAlteDatei, 'C:\DatabaseDir\Mensch\' + sNeueDatei); it works fine, thanks

[Metallicwar]

Zitat:

Ganz allgemein kann man sich bei Systemfunktionen auch sagen lassen, warum es nicht funktioniert.

Also konkret nach RenameFile ein
ShowMessage(SysErrorMessage(GetLastError));

hab ich auch mal probiert. Bekam als Meldung: DAs System kann den angegebenen Pfad nicht finden.
Das Problem hat sich damit schön gelöst, danke für die schnelle Hilfe.
Einfach spitze! Daumen hoch

[Assarbad]

@Satty67: Vorsicht, es handelt sich nicht wirklich um eine Systemfunktion, siehe RenameFile (was keinen Treffer für Win32 gibt ). Nur wenn man MoveFile (oder MoveFileEx) direkt benutzt kann man sich sicher sein, daß GetLastError etwas sinnvolles ergibt. Denn die Implementation von RenameFile kann sich ggf. auch ändern und in diesem Falle könnten mehrere Win32-APIs aufgerufen werden, wobei dann nicht mehr klar ist welche den Fehlercode erzeugt hat. Das aber nur als Hinweis am Rande.