Dateiendung von Dateien nach Vorgabe ändern

[DeddyH]

Ungetestet:

Delphi-Quellcode:

procedure RenameFiles;
const
  Path = 'C:\rename\';
  OldExt = '.jpg';
  NewExt = '.bmp';
var
  sr: TSearchRec;
  NewName: string;
begin
  if FindFirst(Path + '*.*', faAnyFile, sr) = 0 then
    try
      repeat
        if sr.Attr and faDirectory = 0 then
          if LowerCase(ExtractFileExt(sr.Name)) = OldExt then
            begin
              NewName := ChangeFileExt(Path + sr.Name,NewExt);
              if not RenameFile(Path + sr.Name, NewName) then
                Beep;
            end;
      until FindNext(sr) <> 0;
    finally
      SysUtils.FindClose(sr);
    end;
end;