Копирование файлов по маске из подкаталогов

@set "folder1=Полный путь до папки, из которой файлы должны быть скопированы"
@set "folder2=Полный путь до папки, в которую файлы должны быть быть скопированы"
@for /f "delims=" %%a in ('dir "%folder1%\*.xls" /A-d/B/S') do @(
    xcopy "%%a" "%folder2%"
)
@pause

@set "folder1=Полный путь до папки, из которой файлы должны быть скопированы"
@set "folder2=Полный путь до папки, в которую файлы должны быть скопированы"
@for /f "delims=" %%a in ('dir "%folder1%\*.xls" /A-d/B/S ^| findstr /E /L ".xls"') do @(
    xcopy "%%a" "%folder2%"
)
@pause

xcopy /chkqrsy C:\Input\*.xls D:\Output

robocopy C:\Input D:\Output *.xls /s /njh /njs /ndl /nfl

@setlocal EnableDelayedExpansion
@set "folder2=Полный путь до папки, в которую файлы должны быть скопированы"
@set /p "mes=Введите значение переменной mes: "
@echo Выберите из предложенных вариантов подходящий (Введите a или b):
@echo a) 1
@echo b) 2
@set /p "per=Выбор: "
@for /d %%a in (D:\2020_%mes%\T*P0%per%) do @(
    set "folder=%%a"
    @for /f "delims=" %%a in ('dir "!folder!\*.xls" /A-d/B/S ^| findstr /E /L ".xls"') do @(
        xcopy "%%a" "%folder2%"
    )
)
@pause

@setlocal EnableDelayedExpansion
@set "folder2=Полный путь до папки, в которую файлы должны быть скопированы"
@set /p "mes=Введите значение переменной mes: "
@echo Выберите из предложенных вариантов подходящий для переменной per (Введите a или b):
@echo a) 1
@echo b) 2
@set /p "per=Выбор: "
@for /d %%a in (D:\2020_%mes%\T*P0%per%) do @(
    set "folder=%%a"
    @for /f "delims=" %%a in ('dir "!folder!\*.xls" /A-d/B/S ^| findstr /E /L ".xls"') do @(
        xcopy "%%a" "%folder2%"
    )
)
@pause

@setlocal EnableDelayedExpansion
@set "folder2=D:\zadachka"
@set /p "mes=Введите значение переменной mes: "
@echo Выберите из предложенных вариантов подходящий для переменной per (Введите a или b):
@echo a) 1
@echo b) 2
@set /p "per=Выбор: "
@if %per%==a (
    set per=1
) else (
    set per=2
)
@for /d %%a in (D:\2020_%mes%\T*P0%per%) do @(
    set "folder=%%a"
    @for /f "delims=" %%a in ('dir "!folder!\*.xls" /A-d/B/S ^| findstr /E /L ".xls"') do @(
        xcopy "%%a" "%folder2%"
    )
)
@pause

@setlocal EnableDelayedExpansion
@set "folder2=D:\zadachka"
@set /p "mes=Введите значение переменной mes: "
@echo Выберите из предложенных вариантов подходящий для переменной per:
@echo a) 1
@echo b) 2
@set /p "per=Введите a или b: "
@if %per%==a (
    set per=1
) else (
    set per=2
)
@for /d %%a in (D:\2020_%mes%\T*P0%per%) do @(
    set "folder=%%a"
    @for /f "delims=" %%a in ('dir "!folder!\*.xls" /A-d/B/S ^| findstr /E /L ".xls"') do @(
        xcopy "%%a" "%folder2%"
    )
)
@pause

@echo off&setlocal enabledelayedexpansion&chcp 1251>nul
set in=D:\2020_
set "out=E:\XLSbase\2020\"
 
:q
set /p mes="Введите вторую часть имени после !in!: "
if not exist "%in%%mes%\" cls&echo Нет папки %in%%mes% ^^!&goto q
:i
cls&set /p num="Введите 1 или 2 в конце T№№P0?: "
if !num! lss 1 goto i
if !num! gtr 2 goto i
set "in=!in!!mes!\"
for /f "delims= eol=" %%f in ('dir "%in%*.xls" /a-d/b/s^|findstr/b "!in:\=[\\]!T.*P0%num%[\\]"') do ^
xcopy /chikqry "%%f" "!out!" >nul

@echo off
echo Выбор месяца:& set /p mes=&cls
echo Выбор части каталога:& set /p per=&cls
set "d1=C:\2020_%mes%"
set "d2=Т*Р0%per%"
set "ext=xls"
 
for /f "delims=" %%a in ('forfiles /p "%d1%" /s /m "%d2%" /c "cmd /c echo @path"') do >nul xcopy /cirqy "%%~a\*.xls" "OUT\"
pause>nul

@setlocal EnableDelayedExpansion
@set "folder2=D:\zadachka"
@set /p "mes=Введите значение переменной mes: "
@echo Выберите из предложенных вариантов подходящий для переменной per:
@echo a) 1
@echo b) 2
@set /p "per=Введите a или b: "
@if %per%==a (
    set per=1
) else (
    set per=2
)
@for /d %%a in (D:\2020_%mes%\T*P0%per%) do @(
    set "folder=%%a"
    @for /f "delims=" %%a in ('dir "!folder!\*.xls" /A-d/B/S ^| findstr /E /L ".xls"') do @(
        set "file=%%a"
        call :step_1 "!file!"
    )
)
@pause
@exit
:step_1
@if exist "%folder2%\%~nx1" (
    set "file_trace1=%folder2%\%~nx1"
    set "file_original=%~n1"
    set /A summa=1
    set "file_modify=!file_original!+!summa!"
    set "file_modify1=!file_original!+"
) else (
    xcopy "%~1" "%folder2%"
    exit /b
)
@for /f "delims=" %%a in ('dir "%folder2%" /A-d/B/S ^| findstr "!file_modify1!"') do @(
            set /A summa+=1
            set "file_modify=!file_original!+!summa!"
)
@set "file_trace1=!file_trace1:%file_original%=%file_modify%!"
@echo f | xcopy "%~1" "!file_trace1!"
@exit /b