m3u Playlist 만들기 윈도우 배치 스크립트

@ECHO OFF
::
:: 현재 디렉토리에서 각 디렉토리를 뒤져 디렉토리 별 각각의 m3u 파일을 만든다.
::
SETLOCAL

:: CODEPAGE를 UTF-8로 변경
CHCP 65001

FOR /F "TOKENS=*" %%D IN ('DIR /AD /B') DO (CALL :MAKE_M3U %%D)
PAUSE
GOTO :EOF

:MAKE_M3U
SET M3U_NAME=%1
ECHO %M3U_NAME%

IF EXIST %M3U_NAME%.m3u DEL /Q /F %M3U_NAME%.m3u
FOR /F "TOKENS=*" %%F IN ('DIR /O:N /B %M3U_NAME%') DO (ECHO %M3U_NAME%/%%F >> %M3U_NAME%.m3u)
GOTO :EOF
EXIT /B