[Iska]

Код:

@echo off
setlocal enableextensions enabledelayedexpansion
set sPath=%~dp0
call :GetLastPartOfPath "%sPath:~0,-1%"
1>nul chcp 1251
1>"%LastPartOfPath%.m3u" 2>nul dir /o:n /b *.wav *.flac *.mp3
1>nul chcp 866

endlocal
exit /b 0

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