Переименовать файлы в папке

[LSpirit]

напиши весь код

[FakeGen]

procedure TForm1.sbtn1Click(Sender: TObject);
var
 m: TSearchRec;
 s: string;
 i: integer;
begin
  s:=sdt1.Text;
  FindFirst(s,m);
  i:=1;
repeat
  begin
    RenameFile(s+m.name,s+IntToStr(i)+'.jpg';
    i:=i+1;
 end
    until findNext(m)=0;
end;

[LSpirit]

напиши весь код

[LSpirit]

лагануло))

[LSpirit]

попробуй переменной S задать значение по ходу программы, сразу то есть.
не присваивая текст кнопки, а написав в коде уже папку

[FakeGen]

Нет, мне именно нужно чтобы из поля бралось название папки, и при нажатии кнопки была работа

[LSpirit]

ой, извини, кое что забыл)

FindFirst(s,faAnyFile,m)

[JTG]

Оверкилл

@ECHO OFF
SETLOCAL EnableDelayedExpansion
SET mask=*.jpg
SET /A i=0

CD %1
FOR /F "usebackq delims=" %%A IN (`DIR /B/A:-D *.jpg`) DO (
  ECHO %%A -^> !i!.jpg
  REN "%%A" !i!.jpg
  SET /A i+=1
)
PAUSE

Запускать rename.bat "диск:\имя папки"

[DenNik2006]

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TSearchRec;
  dir: string;
  i: word;
begin
  dir:= 'C:\Pictures\';
  i:= 0;
  if FindFirst(Dir + '*.jpg',faAnyFile - faDirectory,fs) = 0
  then
  repeat
    Inc(i);
    RenameFile(dir + fs.Name,dir + IntToStr(i)+'.jpg');
  until
    FindNext(fs) <> 0;
  FindClose(fs);
end;

[Аватар]

RenameFile(dir + fs.Name,dir + IntToStr(i)+'.jpg');

Не забыть проверить перед переименованием, а вдруг раньше существовал файл с вновь создаваемым именем