Код:
@Echo Off
cls
>nul chcp 1251
Set "BoxIn=C:\программ дата\спец программа"
Set "BoxDir=списки"
For /F "usebackq delims=" %%d In (`2^>nul Dir "%BoxIn%\%BoxDir%" /S /B /A:D`) Do Set "MyPath=%%d"
Echo "%MyPath%"
pause
Exit /B 0
В зависимости от того, в какой кодировке сохраняем командный файл,
>nul chcp 1251
нужен только в случае сохранения батника в 1251 кодировке
Скрипт предсказуемо отработает, если подпапка "списки" встречается только один раз во вложенных подпапках "C:\программ дата\спец программа", иначе получим самый последний путь по алфавитной сортировке с подпапкой "списки". То есть, в этом случае надо уточнять постановку задачи.
