BATCH MAKE DIR FOR MKVs AND SUBs

@ECHO OFF

:: BATCH TO MAKE DIR FOR MKVs AND SUBs
:: TO FIND SED WEB SEARCH UnxUtils.zip
:: MKVs AND SUBs WITH SAME NAME

:LOOP

FOR /F "delims=" %%B IN ('dir /b *.mkv') DO (
IF EXIST %%B CALL :CRDIR %%B
)
GOTO END

:CRDIR
FOR /F "delims=" %%P IN ('ECHO %~n1 ^| sed -e "s/\./ /g" -e "s/\(.*\)\([0-9][0-9][0-9][0-9]\)\([[:space:]].*$\)/\1(\2)/"') DO (
SET FDIR=%%P
SET FMKV=%~n1.mkv
SET FSUB=%~n1.srt
)
ECHO.
IF NOT EXIST "%FDIR%" MKDIR "%FDIR%" && ECHO NEW DIR %FDIR%
ECHO.
timeout 1 >NUL
IF EXIST %FMKV% MOVE %FMKV% "%FDIR%" && ECHO %FMKV%
ECHO.
IF EXIST %FSUB% MOVE %FSUB% "%FDIR%" && ECHO %FSUB%
ECHO.

GOTO LOOP

:END