Код:
@Echo Off
Set Where=D:\a\
Set Ext=.arj
Call :CopyN "^...\%Ext%$" "D:\B3"
Call :CopyN "^....\%Ext%$" "D:\B4"
Call :CopyN "^.....\%Ext%$" "D:\B5"
GoTo :Eof
:CopyN
Set Maska=%~1
FOR /f "delims=" %%f IN ('Dir /b /A:-D %Where%*%Ext% ^| findstr "%Maska%"') DO (
xcopy /I /C /F /H /R /Y "%Where%%%f" %2 >>d:\c\%date%.log
)
