[megaloman]

Чтец123, Если VBS не принципиально (не вчитывался в приведенный Вами скрипт), то вот CMD:

For+Dir

Код:

@Echo Off

Set "From=Z:\Box_In\*.js"
Set "To=Z:\Box_Out"

Set "Now=%Date%"

FOR /F "usebackq delims=" %%f IN (`Dir /B /S /A:-D /T:C "%From%" 2^>nul`) DO (
	FOR /F "usebackq tokens=1 delims= " %%d IN ('%%~tf') DO If "%Now%"=="%%d" Copy "%%f" "%To%\" >nul
)

forfiles

Код:

@Echo Off

Set "From=Z:\Box_In"
Set "To=Z:\Box_Out"
Set "Mask=*.js"

Set "Comm=cmd /C >nul copy "@path" "%To%\""

FORFILES /P "%From%" /M "%Mask%" /S /D +0 /C "%Comm%"

Или, если угодно,

Код:

@Echo Off
FORFILES /P "Z:\Box_In" /M "*.js" /S /D +0 /C "cmd /C >nul copy "@path" "Z:\Box_Out\""

Тут, в принципе, и батника не надо, команду можно ручками набрать