[alpap]

Georgio,
Да мне Ваш вариант даже больше понравился, окно только меньше сделал - для красоты, надеюсь правильно (работает).

mode con cols=30 lines=1
@echo off
cd /d "%~dp2"
set/p name=Введите имя папки:
echo %name%
if defined name (
for /f "delims=" %%i in ('
2^>nul dir/ad/b "%name%*"^| findstr/irc:"^%name%[1-9][0-9]*$"
') do (
set x=%%i
for /f %%j in ('
cmd/v/c echo "!x:*%name%=!"
') do (
for /f %%k in ('
set/a max
') do (
if %%~j gtr %%k (
set/a max=%%~j+1
)
)
)
)
) else (
exit/b 1
)
if defined max (
for /l %%i in (1 1 %max%) do (
for /f %%j in ('
set/a %%i+1
') do (
2>nul md "%name%%%j"&& (
exit/b 0
)
)
)
) else (
2>nul md "%name%"|| (
md "%name%1"
)
exit/b 0
)