Почему не срабатывает код для выделения подстроки из значения переменной?

rem @echo off
setlocal enabledelayedexpansion
for %%x in (*.txt) do (
if not exist %2 md %2
set dir1=%cd%\%2
    if not %%x==%1 (
        if exist %2\%%x (
            set "time1 = %%~tx"
            set "time2 = %%~t$dir1:x"
            set "time2 = !time2:~0,16!"
            set "time2"
            if time1 GTR time2 copy %%x %2
        ) else copy %%x %2
    )
    rem pause
    if errorlevel 1 echo Ошибка копирования файла
)

@echo on
set "f=%Userprofile%\Desktop\file.txt"
set "d=%Userprofile%\Desktop\papka"
call :proc %f% %d%
pause
 
:proc
rem @echo off достаточно @echo on
setlocal enabledelayedexpansion
for %%x in (*.txt) do ( лучше...("*.txt")...
if not exist %2 md %2 лучше вынести из цикла и пишется так if not exist "%~2" md "%~2"
set dir1=%cd%\%2 достаточно set "dir1=%~dpn2"
    if not %%x==%1 ( желательно if not "%%~x"=="%~1"
        if exist %2\%%x ( тоже if exist "%~2\%%~x" и существовать никогда не будет в этом коде без возврата на начало
            set "time1 = %%~tx" лучше так писать set "time1=%%~tx"
            set "time2 = %%~t$dir1:x" что бы это могло или хотелось?
            set "time2 = !time2:~0,16!" выделилить единицы минут, но откуда и зачем?
            set "time2" это что вообще?
            if time1 GTR time2 copy %%x %2 сравнение пустот, if "!time1!" GTR "!time2!" copy "%%~x" "%~2"
        ) else copy %%x %2
    )
    rem pause а тут-то rem зачем?
    if errorlevel 1 echo Ошибка копирования файла
)
exit /b