Если в именах папок есть кириллица - сохраняем 866
Код:
@Echo Off
Set R="0"
Set Spisok=d:\List.txt
For /f "Delims=" %%a In ('Dir /s /b /a-d "d:\*.mp3"') Do Call :1 "%%~dpa"
Goto:Eof
:1
If %R% NEQ %1 (
Set R=%1
If %R% NEQ "0" Echo %R:~1,-2% >>%Spisok%
)
Список будет представлен
d:\List.txt