[megaloman]

Код:

@Echo Off
cls
	Set "BoxIn=D:\CMD_Forum"

	Set /A N=1000000
	FOR /F "usebackq delims=" %%i IN (`2^>nul Dir "%BoxIn%\*.*" /A:D /B`) DO (
		Set /A N+=1
		FOR /F "usebackq delims=" %%j IN (`2^>nul Dir "%BoxIn%\%%i\*.*" /B`) DO Call Set "@@@%%N%%=%BoxIn%\%%i"
	)
	FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul Set "@@@"`) DO Echo %%j
Pause
Exit /B 0