Dateien eines verzeichnisses umbenennen

[eddy]

Hallo Bea,

so geht's:

Delphi-Quellcode:

const
  endwert = 100;
var
  j, i, akt, lst : integer;
  aerw, lerw : string[3];        // Aktuelle ERWeiterung, LetzteERWeiterung
  pfn, afn, lfn : string;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  pfn := 'c:\tmp\datei.';
  akt := 1;
  lst := 0;
  repeat
    aerw := IntToStr(akt);
    while length(aerw) < 3 do aerw := '0' + aerw;
    afn := pfn + aerw;
    if FileExists(afn) then begin
      inc(lst);
      if lst <> akt then begin
        lerw := IntToStr(lst);
        while length(lerw) < 3 do lerw := '0' + lerw;
        lfn := pfn + lerw;
        renameFile(afn, lfn);
      end;
    end;
    inc(akt);
  until akt > endwert;
end;

Optimieren kannst Du es sicherlich selbst.

mfg
eddy