[kiripanda]

Код:

for /f "tokens=1,2,3,4,5,6,7 delims=/:-,." %%a in ("%date%:%time%") do md "%%c-%%b-%%a_%%d-%%e-%%f"

[megaloman]

Если дата в системе в формате дд.мм.гггг и время ЧЧ.ММ.СС,дс то в указанной папке (здесь D:\Delete) создастся подпапка с именем ггггммдд_ЧЧММСС

Код:

Set Where=D:\Delete
Set NameDir=%Where%\%Date:~6,4%%Date:~3,2%%Date:~0,2%_%Time:~0,2%%Time:~3,2%%Time:~6,2%

Md "%NameDir%"

[monlogin]

Огромное спасибо!

[megaloman]

Если в папке директории только с именами, соответствующими номерам, то поддиректорию с номером на 1 больше максимально существующей можно создать как

Код:

Set Where=D:\Delete
Set /A MaxNum=1-1

FOR /F "usebackq delims=" %%i IN (`Dir /B /A:D %Where%`) DO Call :CounMax %%i
Md "%Where%\%MaxNum%"



GoTo :Eof
:CounMax
if %1 GEQ %MaxNum% Set /A MaxNum=%1+1
GoTo :Eof

Или вот еще вариант

Код:

Set Where=e:\Delete

SETLOCAL ENABLEDELAYEDEXPANSION
Set /A MaxNum=1-1

FOR /F "usebackq delims=" %%i IN (`Dir /B /A:D %Where%`) DO if %%i GEQ !MaxNum! Set /A MaxNum=%%i+1
Md "%Where%\%MaxNum%"