[Starter1]

Да забыл сказать что в папках могут содержаться файлы аж до 10 гигабайт.

[El Sanchez]

Starter1,

Код:

@Echo Off
Set Source=C:\Source

Dir /W /B /AD "%Source%\fff_*"&&Set /P "Num=Enter number: "
If Exist "%Source%\fff_%Num%" Ren "%Source%\fff_%Num%" "Найденная папка"

[Starter1]

El Sanchez, Спасибо работает но для папок пронумерованных. Понял что не правильно задал вопрос. Извините

В общем у нас есть папки:
fff_Наварот
fff_Мои работы
fff_Ещё что-то

Вот такие вот папки а задача такая же.

[El Sanchez]

работает но для папок пронумерованных »

Starter1, смутила надпись Enter number: ? Так вводите нужное вам окончание вместо цифр и замените Set /P "Num=Enter number: " на что-нибудь другое, например, Set /P "Num=Enter end of foldername: "
P.S. Не забывайте, что скрипт необходимо сохранять в кодировке DOS (OEM866), если работаете с кириллицей

[Starter1]

El Sanchez, вся проблема в том что нужно ввести цифру папки которая стоит в списке выведенном на экран, а не её имя, так бы с радостью.

1) fff_Наварот 2) fff_Мои работы 3) fff_Ещё что-то »

[El Sanchez]

Starter1, пардон, невнимательно условие прочитал:

Код:

@Echo Off
SetLocal
Set Source=C:\Source
For /F "Tokens=1* Delims=:" %%A In ('Dir /W /B /AD "%Source%\fff_*"^|FindStr /N .') Do Echo %%A) %%B&Set fff_%%A=%%B
Set /P "Num=Enter number: "
If Defined fff_%Num% Call Ren "%Source%\%%fff_%Num%%%" "Найденная папка"&&Echo OK
EndLocal

[Starter1]

El Sanchez, Да не, это я неправильно задал вопрос. О! Спасибо огромное работает отлчно!!! Всё просто курто! Решил проблему!

[Starter1]

А можно ли в этом же батнике вернуть старое имя? После как выбрал номер и папка переименовалась в "Найденная папка", далее после pause продолжил и вернулось старое имя, после батник заканчивается и естественно окошко закрывается.

[Starter1]

Решил проблемму при помощи вот этого
For /F "Tokens=1* Delims=:" %%A In ('Dir /W /B /AD "%Source%\%pr%*"^|FindStr /N .') Do (Echo %%B >> %spisok%)
Ну думаю объяснять ничего не нужно.