Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


Имена папок могут быть любыми, как и их количество. Насчет вложенности (здесь Set /A Nest=4) , для большого числа (вы указывали 10) предложенный код будет работать долго.
Код: Выделить весь код
@Echo Off
	Set /A Nest=4
	Set "BoxIn=Z:\Test"

	Set "@01=0" 
	Set "@02=1"
	Set "@03=2" 
	Set "@04=3"
	Set "@05=4" 
	Set "@06=5"
	Set "@07=6" 
	Set "@08=7"
	Set "@09=8" 
	Set "@10=9"

	FOR /F "usebackq tokens=2 delims==" %%i IN (`2^>nul Set "@"`) Do 2>nul md "%BoxIn%\%%i"
	FOR /L %%n IN (2,1,%Nest%) DO (
		FOR /F "usebackq delims=" %%d IN (`2^>nul Dir "%BoxIn%" /B /S /A:D`) Do Call :NestMD "%%d"
	)
pause
Exit /B

:NestMD
	FOR /F "usebackq tokens=2 delims==" %%i IN (`2^>nul Set "@"`) Do 2>nul md "%~1\%%i" ||Exit /B 1
Exit /B
Пример произвольных имен
Код: Выделить весь код
	Set "@01=ku ku" 
	Set "@02=la la"
	Set "@03=ой ё"

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 08-01-2020 в 16:59.

Это сообщение посчитали полезным следующие участники:

Отправлено: 13:07, 08-01-2020 | #5