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;