D:
cd %~dp0
@echo off
setlocal enableextensions enabledelayedexpansion
set sPath=%~dp0
call :GetLastPartOfPath "%sPath:~0,-1%"
#1>nul chcp 866
1>nul chcp 65001
>"%LastPartOfPath%.m3u" (
	echo #EXTM3U

        for /f "usebackq delims=" %%i in (`dir /s /o:n /b *.mkv *.vob *.ts *.avi *.mov *.mp4 *.mpg 2^>nul`) do (
                set sFullPath=%%~i
                echo #EXTINF:-1,!sFullPath:%sPath%=!
                echo !sFullPath:%sPath%=!
                
	)
)
1>nul chcp 866

endlocal
exit /b 0

:GetLastPartOfPath
	setlocal enableextensions enabledelayedexpansion
	set sOut=%~0
	
	endlocal & set %sOut:~4%=%~nx1
	exit /b
pause