forza11,
Код:
@Echo Off
cls
SetLocal
Set "@In1=Z:\Papka 1"
Set "@In2=Z:\Papka 2"
Set "@In3=Z:\Papka3"
Set /A Dt1=20180701
Set /A Dt2=20181231
Set "Mask=20??????.csv
Set "Out=Z:\Box_Arc"
FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul Set "@In"`) DO (
Echo +++ %%j
FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /S /A:-D "%%j\%Mask%"`) DO Call :OutFile "%%f" "%Out%" %Dt1% %Dt2%
)
EndLocal
Pause
GoTo :Eof
:OutFile
Set "FDt=%~n1"
2>nul Set /A FDt=%FDt:~0,8% ||Exit /B 1
If %FDt% LSS %3 Exit /B 0
If %FDt% GTR %4 Exit /B 0
If Not Exist "%~2%~p1" Md "%~2%~p1"
>nul Xcopy /D /Y /R %1 "%~2%~p1"
rem >nul Move /Y %1 "%~2%~p1"
Exit /B %ErrorLevel%
Внутренний голос мне шепчет, что Вам надо не скопировать файлы за период, а переместить.
В этом случае удалите строку с Xcopy и уберите Rem перед Move.
Ограничение: Должно быть Dt1 <= Dt2
