Код:
@Echo Off
SetLocal EnableDelayedExpansion
:: Устанавливаем корневую папку
Set DataRoot=%~dp0
:: Текстовый файл для вывода
Set OutFile=out.txt
:: Выводим файлы из корневой папки
Echo Index of "\":&Echo Index of "\":>"%OutFile%"
For /F "delims=" %%A In ('Dir "%DataRoot%\" /B /A-D 2^>nul') Do (Echo %%~nA&Echo %%~nA>>"%OutFile%")
Echo.&Echo.>>"%OutFile%"
:: Получаем структуру вложенных папок
For /F "delims=" %%A In ('Dir "%DataRoot%\" /S /B /AD') Do (
Set RelativePath=%%A
:: Получение относительного пути из полного
Set RelativePath=!RelativePath:%DataRoot%=!
:: Выводим файлы из вложенных папок
Echo Index of "\!RelativePath!\":&Echo Index of "\!RelativePath!\":>>"%OutFile%"
For /F "delims=" %%B In ('Dir "%%~A" /B /A-D 2^>nul') Do (Echo %%~nB&Echo %%~nB>>"%OutFile%")
Echo.&Echo.>>"%OutFile%"
)
Pause
