Datei Umbenennen

[Gehstock]

Delphi-Quellcode:

begin
  for I := 1 to ParamCount do
  begin
      RenameFile( ParamStr(i), ExtractFilePath(ParamStr(i)) + data + '.jpg' );