Копирование файлов с определенным именем и за текущую дату и двойная распаковка ARJ-архива

@echo off
::Введите ключ условий поиска даты:
::w (write) - по дате модификации
::c (create) - по дате создания
set sortkey=c
::введите маску для искомых файлов
set mask=sz*.*
::введите исходную папку
set src=l:\bash\DateCheck\from
::введите целевую папку
set dest=l:\bash\DateCheck\To
 
for /f "tokens=1-3*" %%a in ('dir "%src%\%mask%" /a-d /-c /t:%sortkey%') do (
  if %%a==%date% (>nul move /y "%src%\%%d" "%dest%"& echo %%d)
)
pause>nul

@echo off
::Введите ключ условий поиска даты:
::w (write) - по дате модификации
::c (create) - по дате создания
set sortkey=c
::введите маску для искомых файлов
set mask=sz*.*
::введите исходную папку
set src=l:\bash\DateCheck\from
::введите целевую папку
set dest=l:\bash\DateCheck\To
::введите полный путь к архиватору 7-zip (7za.exe, 7z.exe - без разницы)
set path7z=c:\Program Files\7-Zip\7za.exe
 
if not exist "%dest%" md "%dest%"
 
for /f "tokens=1-3*" %%a in ('dir "%src%\%mask%" /a-d /-c /t:%sortkey%') do (
  if %%a==%date% (>nul copy /y "%src%\%%d" "%dest%\*.arj"& echo %%d)
  "%path7z%" e -o"%dest%\%%~nd" -y "%dest%\%%~nd.arj"
  del /f "%dest%\%%~nd.arj"
  for %%e in ("%dest%\%%~nd\*.arj") do (
    "%path7z%" x -y "%%e"
    del /f "%%e"
  )
)
 
pause>nul

"c:\Program Files\7-Zip\7za.exe" e somefile.arj

@echo off
SetLocal enabledelayedexpansion
::Введите ключ условий поиска даты:
::w (write) - по дате модификации
::c (create) - по дате создания
set sortkey=c
::введите маску для искомых файлов
set mask=sz*.*
::введите исходную папку
set src=d:\1
::введите целевую папку
set dest=d:\2\%date%
::введите директорию установки 7z
set arh="c:\Program Files\7-Zip\7z.exe"
 
:: отбор файлов и первая распаковка
if not exist %dest% md %dest%
for /f "tokens=1-4 delims= " %%a in ('dir /a-d /t%sortkey% "%src%\%mask%" 2^>nul') do (
    if "%%a"=="%date%" (
    set tempdir="%dest%\%%d\1"& md !tempdir! 2>nul
    >nul copy /y "%src%\%%d" "%dest%\%%d\"
        >nul %arh% e "%dest%\%%d" -o!tempdir!&& call :1 "%dest%\%%d"&& del /q "%dest%\%%d\%%d"
 ))
pause
exit
 
:: вторая распаковка
:1
for /f "delims=" %%z in ('dir /b /a-d "%~1\1\*"') do (
>nul %arh% e "%~1\1\%%z" -o"%~1"&& rd /s /q "%~1\1"
)
GoTo :EOF

@echo off
SetLocal enabledelayedexpansion
::Введите ключ условий поиска даты:
::w (write) - по дате модификации
::c (create) - по дате создания
set sortkey=c
::введите маску для искомых файлов
set mask=sz*.*
::введите исходную папку
set src=d:\1
::введите директорию установки 7z
set arh="c:\Program Files\7-Zip\7z.exe"
 
:: отбор файлов и первая распаковка
for /f "tokens=1-4 delims= " %%a in ('dir /a-d /t%sortkey% "%src%\%mask%" 2^>nul') do (
    if "%%a"=="%date%" (
    set tempdir="%src%\TM"& md !tempdir! 2>nul
    >nul %arh% e "%src%\%%d" -o!tempdir!&& call :1 "!tempdir!"&& del /q "%src%\%%d"
 
 ))
pause
exit
 
:: вторая распаковка
:1
for /f "delims=" %%z in ('dir /b /a-d "%~1\*"') do (
>nul %arh% e "%~1\%%z" -o"%src%"&& rd /s /q "%~1"
)
GoTo :EOF

@echo off
SetLocal enabledelayedexpansion
::Введите ключ условий поиска даты:
::w (write) - по дате модификации
::c (create) - по дате создания
set sortkey=c
::введите маску для искомых файлов
set mask=sz*.*
::введите исходную папку
set src=d:\1
::введите целевую папку
set dest=d:\2
::введите директорию установки 7z
set arh="c:\Program Files\7-Zip\7z.exe"
 
:: отбор файлов и первая распаковка
if not exist %dest% md %dest%
for /f "tokens=1-4 delims= " %%a in ('dir /a-d /t%sortkey% "%src%\%mask%" 2^>nul') do (
    if "%%a"=="%date%" (
        set tempdir="%dest%\1"& md !tempdir! 2>nul
        >nul copy /y "%src%\%%d" "%dest%\"
            >nul %arh% e "%dest%\%%d" -o!tempdir!&& call :1 "%dest%\1"&& del /q "%dest%\%%d"
    )
)
pause
exit
 
:: вторая распаковка
:1
for /f "delims=" %%z in ('dir /b /a-d "%~1\*"') do (
    >nul %arh% e "%~1\%%z" -o"%dest%"&& rd /s /q "%~1"
)
GoTo :EOF

for /f "delims=" %%d in ('FORFILES /p "%src%" /M "%mask%" /d +2') do (