Mehrere Dateien gleichzeitig umbenennen. Wie?

[DRPEnc]

K, ich hab diesen Code gefunden:

Delphi-Quellcode:

var

  f : file;
begin
  OpenDialog2.Title := 'Choose a file... ';
  if OpenDialog2.Execute then
  begin
    SaveDialog1.Title := 'Rename to...';
    if SaveDialog1.Execute then
    begin
      AssignFile(f, OpenDialog2.FileName);
      Rename(f, SaveDialog1.FileName);
    end;
  end;

end;

Kann man diesen so umschreiben, dass man gleich mehrere Dateien umbenennt?

Der folgende Code öffnet ja mehrere Dateien. Diese Dateien haben meistens Leerzeichen und/oder Sonderzeichen wie - / im Namen.

Beispiel: 01. Soundtrack - High Level.ogg

Dies kann aber von einem commandline programm nicht bearbeitet werden. Ergo müssen die Leer- und Sonderzeichen raus. Nur wie...

Delphi-Quellcode:

var i,ii:Integer;
begin
opendialog1.Options:=[ofAllowMultiSelect,ofEnableSizing];   //multiselect erlauben
if not opendialog1.Execute then exit;
begin
if opendialog1.Files.Count>1 then  //falls multiselect
begin
for ii:= 0 to opendialog1.Files.Count-1 do
begin
i:=listbox1.items.IndexOf(opendialog1.Files.Strings[ii]);
if i<0 then //falls der Eintrag noch nicht existiert
begin
listbox1.Items.Append(opendialog1.Files.Strings[ii]);
end;
end;
end;
end;
end;