Код:
@Echo Off
If "%~3"=="" Cls &Echo Недостаточно аргументов &Pause &Exit /b 240
SetLocal EnableExtensions EnableDelayedExpansion
Set "BoxIn=%~1"
Set "SubDir=%~2"
Set "OutFile=%~3"
Pushd "%BoxIn%"
>"%OutFile%" (
Echo %BoxIn%
Echo:
FOR %%i IN (%SubDir%) DO (
Set "N1="
Set "N2=Папка не найдена"
If Exist "%%i" FOR /F "usebackq tokens=* delims= " %%j IN (`Dir /S /A:-D "%%i" 2^>nul`) DO Set "N2=!N1!" & Set "N1=%%j"
Echo %%i !N2!
)
)
Popd
GoTo :Eof
Пример вызова (допустим, скрипт называется skript.bat):
Код:
script.bat "Z:\PC86\CONS_BASE2\BASE" "ARB BCN BDV BMS BPV BSK" "Z:\Box_Out\Обзор Консультант Плюс.txt"