Автопереименование видео с камер Sony

Если для копирования видео с камер вы используете файловый менеджер, то наверняка у вас получалась такая картина:
На каждое видео 2-4 файла:
C0053.MP4
C0053M01.XML
C0053T01.JPG
C0053S03.MP4 (этот появляется если в настройках включить запись загадочного Proxy)

Вот я и написал batник который переименовывает основное видео по дате/времени, а все остальные файлы упаковывает в rar архив с таким же именем.
То есть в результате в получатся 2 файла из этих 4
20200813100817.mp4
20200813100817.rar

Имя состоящее из даты и времени берется из XML файла.
Переименовывает так все пакеты видео в папке.
Естественно WinRAR у вас должен быть установлен в папке C:\Program Files\WinRAR иначе нужно поменять путь в bat файле

Код:

@echo off
SetLocal EnableExtensions EnableDelayedExpansion

REM Переименовывает видеоролики Sony. А доп файлы упаковывает в rar архив. Имя берет из xml файла
REM © Alexey Kulachatov

for %%i in (*.xml) do (
set L=%%i
set N=%%~ni
call :main
)
pause
goto eof

:main
for /f " tokens=1-7 delims==+ skip=1" %%A in (%L%) do (
    set dt=%%E
    goto :next
)
:next
set y=%dt:~1,4%
set tn=%N:~0,5%
ren %tn%.MP4 %y%%dt:~6,2%%dt:~9,2%%dt:~12,2%%dt:~15,2%%dt:~18,2%.mp4
"C:\Program Files\WinRAR\rar" a %y%%dt:~6,2%%dt:~9,2%%dt:~12,2%%dt:~15,2%%dt:~18,2%.rar %tn%???.??? -dr
exit /b