: Fehler beim Umbenennen der Datei

[himitsu]

Also bei mir Funktioniert es mit ANSI und 8.3-Namen

Delphi-Quellcode:

var APfad, AMaske, ANewName: String;
  sr: TSearchRec;
begin
  APfad    := 'C:\Temp\Test\1\';
  AMaske   := 'Delphi 7 *.pdf';
  ANewName := 'Delphi 7.pdf';

  if FindFirst(APfad + AMaske, faAnyFile and not faDirectory, sr) = 0 then
  begin
    if (sr.Attr and faDirectory) = 0 then
    begin
      Label1.Caption := Format('%s (%s) > %s', [sr.Name, sr.FindData.cAlternateFileName, ANewName]);
      If not RenameFile(APfad + sr.FindData.cAlternateFileName, APfad + ANewName) Then
        Label1.Caption := Label1.Caption + ' = Error';
    end;
    FindClose(sr);
  end;
end;