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
