[NEed Help] Delphi Umbennenung

[shmia]

Aus folgende Schnippseln lässt sich das leicht zusammenbauen:

Delphi-Quellcode:

   function FormatFileName(nr: integer): string;
   begin
      // Dateiname mit Nummer zusammenbauen
      Result := ChangeFileExt(ExtractFileName(dateiname), '')+IntToStr(nr)+ExtractFileExt(dateiname);
   end;


   i := 50;  // Anzahl der Sicherungskopieren
   DeleteFile(FormatFileName(i));  // älteste Datei löschen
   Dec(i);

   while i > 0 do
   begin
      RenameFile(FormatFileName(i), FormatFileName(i + 1));
      Dec(i);
   end;