Mehrere Dateien gleichzeitig umbenennen. Wie?

[Steve]

Aso wer lesen kann is im Vorteil

Also, mein Vorschlag sieht ca. so aus:

Delphi-Quellcode:

FUNCTION myRenameFiles : Boolean;
VAR
  i, posSpace : Integer;
  newName     : STRING;
  ok          : Boolean;
  dlg         : TOpenDialog;
CONST
  CrLf = #13#10;
BEGIN

  OK          := TRUE;
  newName     := '';
  Dlg         := TOpenDialog.Create(Application);
  Dlg.Options := openDlg.Options + [ofAllowMultiSelect];

  // Öffnen-Dialog aufrufen
  IF openDlg.Execute THEN

  // Alle ausgewählten Dateien durchlaufen
  FOR i:=0 TO openDlg.Files.Count-1 DO
  BEGIN
    posSpace := 1;
    newName  := openDlg.Files[i];
    WHILE posSpace>0 DO
    BEGIN
      posSpace := Pos(' ',newName); // Leerzeichen suchen
      Delete(newName,posSpace,1);   // Leerzeichen löschen
    END;

    // Jetzt wird die Datei umbenannt
    IF NOT RenameFile(openDlg.Files[i],newName) THEN
    BEGIN
      // Fehler beim umbenennen
      OK := FALSE;
      MessageDlg(openDlg.Files[i]+' kann nicht umbenannt werden.' + CrLf +
                 Format('Möglicherweise existiert %s bereits!',[newName]),
                 mtError,[mbOK],0);
      Break;
    END; { Fehlerhandling }
  END;  { Schleife Dateinamen }
  
  //Aufräumen
  Dlg.Free;
  result := OK;
END;  { myRenameFiles }

Könnte sogar funktionieren

So far,
Stephan