Buongiorno. Pensavo fosse facile rinominare tutti i file di una cartella, invece non mi è riuscito. Nel codice ho commentato due righe perchè che ci siano o no non succede niente.La cartella dei file l'ho messa fissa perchè è quella dove ci sono i file, il numero 90 l'ho ricavato dal sietema della cartella. Questo Il codice:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
oldf, newf:string;
begin
oldf:= 'c:\rinom\*.*';
for i:=1 to 90 do
begin
newf:='c:\rinom\files '+inttostr(i);
renamefile(oldf, newf);
//copyfile(Pchar(oldf), Pchar(newf),false);
//movefile( Pchar(oldf), Pchar(newf));
end;
end;
end.