Dateiumbennen mit "Sonderzeichen"?

[Sharky]

Hai,

ich habe hier einige Files die kroatische Buchstaben im Pfad/Dateinamen haben.
Diese wollte ich jetzt gerne so umbennen das nur noch ASCII-Zeichen vorkommen.

Die Dateinamen sehen z.B. so aus:

Zitat:

C:\Dokumente und Einstellungen\Stephan\Eigene Dateien\Eigene Musik\Fabian\Gradišcani\GRADIŠČANI - Danice, vjeruj mi.mp3

Ich versuche jetzt zum testen mit diesem Code die Datei umzubennen. Leider wird bei RenameFile als Ergebniss immer FALSE zurück gegeben und die Datei auch nicht umbenannt.

Delphi-Quellcode:

var
    oldChar : WideString;
    newChar : WideString;
    oldFile : WideString;
    newFile : WideString;

procedure TForm1.FormCreate(Sender: TObject);
begin
  oldChar := 'Š';
  newChar := 'S';
end;

procedure TForm1.Button1Click(Sender: TObject); // Datei auswählen
begin
  if (OpenDialog1.Execute) then
  begin
    oldFile := OpenDialog1.FileName;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject); // Umbennen
begin
  newFile := StringReplace(oldfile,oldChar,newChar,[rfReplaceAll]);
  if (RenameFile(OldFile,newFile )) then  // Dateiumbenennen
  begin
    ShowMessage('Okay');
  end
  else
  begin
    ShowMessage('Fehler');
  end;
end;

Hat einer von euch eine Idee was ich da machen könnte?