Копирование отсутствующих и изменённых файлов по результатам сверки файлов одного каталога с файлами другого

@echo off
dir d:\TEST\NEW /b /d >d:\TEST\new_filelist.txt
dir d:\TEST\CLONE /b /d >d:\TEST\clone_filelist.txt

@Echo off
::Откуда (путь без кавычек)
set $from=e:\2
::Куда (путь без кавычек)
set $dest=e:\1
::Путь к файлу протокола
set $log=e:\copyfile.log
for /f "delims=" %%i in ('dir "%$from%" /B/A:-D') do (
  Call :CheckLog "%%i"
)
goto :eof
 
:CheckLog
If Exist "%$log%" For /f "delims=" %%a in (%$log%) Do If "%%a"=="%~1" Exit /B
copy /y %$from%\"%~1" "%$dest%" 1>nul
if %errorlevel%==0 (echo.Copy is successful - %~1&echo.%~1>>"%$log%")

Echo off
SetLocal enabledelayedexpansion
                 
SET WorkDir=D:\TEST
SET OutDir=%WorkDir%\NEW\
SET LogFile=%WorkDir%\LogFile.log
 
CD /D %WorkDir%
 
SET Time_r=%TIME%
SET tr=!Time_r:~0,5!
 
SET Real_hh=!tr:~0,2!
SET Real_mm=!tr:~3,2!
 
IF Real_hh lss 10 SET Real_hh=!tr:~0,1!
IF Real_mm lss 10 SET Real_mm=!tr:~4,1!
 
FOR /F "delims=" %%z IN ('dir /O-D *.* /b') do ( 
 
SET lm=%%~tz
::Echo lm=!lm!
 
SET File_hh=!lm:~11,2!
SET File_mm=!lm:~14,2!
 
IF !File_hh! lss 10 SET File_hh=!lm:~12,1!
IF !File_mm! lss 10 SET File_mm=!lm:~15,1!
 
SET /A Diff = "60*(Real_hh-File_hh)+Real_mm-File_mm"
 
IF !Diff! GEQ 30 (
COPY %%z %OutDir% /Y >> %LogFile%
)
)

robocopy r:\src r:\into * /mir /mon:1

robocopy r:\src r:\into *.wav /Z /mir /mon:1