:: Delete.Duplicate.Video.Files.bat
@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION

SET file_path=%~1
FOR /F "delims=" %%a IN ('DIR /B /S /O:N "%file_path%\*.mkv" "%file_path%\*.avi"') DO (
    CALL :get_file_info "%%a"
    SET old_file=!new_file!
    SET old_file_date=!new_file_date!
    SET new_file=!file_name!
    SET new_file_date=!file_date!
    FOR /F %%b IN ('@ECHO "!old_file!"^|FIND /C "!new_file!"') DO (
        IF "%%b" EQU "1" (
            IF !old_file_date! GTR !new_file_date! (
                ECHO older: !new_file_date! !new_file!
                ECHO newer: !old_file_date! !old_file!
                DEL "%file_path%\!old_file!.*"
                ECHO.
            )
            IF !new_file_date! GTR !old_file_date! (
                ECHO older: !old_file_date! !old_file!
                ECHO newer: !new_file_date! !new_file!
                DEL "%file_path%\!new_file!.*"
                ECHO.
            )
            IF !new_file_date! EQU !old_file_date! (
                ECHO same: !old_file_date! !old_file!
                ECHO same: !new_file_date! !new_file!
                ECHO Same timestamps. No files deleted...
                ECHO.
            )
        )
    )
)
EXIT /B

:get_file_info
SET file_date=%~t1
FOR /F "tokens=1-4 delims=: " %%c IN ("%file_date%") DO (
    SET hours=0%%d
    SET hours=!hours:00=!
    SET hours=!hours:~-2!
    IF %%d LSS 12 (
        IF "%%f" EQU "PM" (
            SET /A hours=%%d+12
        )
    )
    SET file_date=%%c !hours!:%%e
)
SET file_name=%~n1
GOTO :EOF