[megaloman]

Код:

@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:\программ дата\спец программа", иначе получим самый последний путь по алфавитной сортировке с подпапкой "списки". То есть, в этом случае надо уточнять постановку задачи.

[DJ Mogarych]

Powershell:

Код:

cp (dir "C:\temp\*.txt") "$((get-item "$env:ProgramData\Спецпрограмма\*\списки").FullName)"

[zergnet]

Проверил первый вариант на домашнем пк, все работает, путь выдает, папка списки по основному пути уникальна.
Спасибо Большое.
PS на работе скрипт PS попробую, еще.

[Iska]

zergnet, что за программа?

[zergnet]

Да это программа vipnet, а файлики списки отозванных сертификатов, просто само обновление хоть и есть в самой программе, но если человек был в отпуске или на больничном то он может пол дня не работать потому что списки отозванных сертификатов старые, а батник с сервера где круглосуточно это программа крутиться копирует юзеру, с перезапуском модулей и все ок.