[megaloman]

Файлы и папки, пути пропишИте свои

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	Set "Mask=*.*"
	Set "BoxOut=\\192.168.100.23\Test1"

	Set "T1=9:30"
	Set "T2=17:45"
	Set "Delim=:"

	Call :MyTime %T1% %Delim% "TT1"
	Call :MyTime %T2% %Delim% "TT2"
	                                                                                     
	Pushd "%BoxIn%"
	FOR /F "usebackq delims=" %%i IN (`2^>nul Dir "%BoxIn%\%Mask%" /B /A:-D`) DO Call :CopyTime "%%i" "%BoxOut%" %TT1% %TT2% %Delim% %%~ti 0
	FOR /F "usebackq delims=" %%i IN (`2^>nul Dir "%BoxIn%\*.*" /B /A:D`) DO Call :CopyTime "%%i" "%BoxOut%" %TT1% %TT2% %Delim% %%~ti 1
	Popd
pause
Exit /B 0

:MyTime
SetLocal
	Set "T=%~1"
	Call Set "T=00%%T:%Delim%=%%"
EndLocal &Set /A %~3=1%T:~-4%
Exit /B %ErrorLevel%

:CopyTime
	If Not "%Date%"=="%6" Exit /B 0
	Call :MyTime %7 %5 "T"
	If %T% LSS %3 Exit /B 0
	If %T% GTR %4 Exit /B 0
	If "%~8"=="0" >nul Xcopy /Y /D %1 "%~2\" 
	If "%~8"=="1" >nul Xcopy /Y /E /D %1 "%~2\%~nx1\" 
Exit /B %ErrorLevel%

[sec1or]

Спасибо огромное! в очередной раз выручили )