переименование файлов в соответствии с m3u

Если в альбоме файлы названы по названиям песен, а их порядок задан в m3u файле, то хрен их прослушаешь в правильном порядке на некоторых плеерах. Поэтому я написал вот такой простой, блядь, скрипт, который читает m3u файл и переименовывает файлы в каталоге из "песня номер семь.mp3" в "07-песня номер семь.mp3". Запускать непосредственно в каталоге с m3u файлом и mp3 файлами. Ну и еще он предполагает, что m3u - это просто список имен файлов, никакого синтаксиса.

@echo off
set cnt=0
for %%i in (*.m3u) do set m3u=%%~si
for /f "delims=" %%i in (%m3u%) do call :dorename "%%i"
goto :eof

:dorename
for /f %%i in ('set /a %%cnt%%+1') do set cnt=%%i
if %cnt% geq 10 (set number=%cnt%) else set number=0%cnt%
for %%i in (%1) do set fname=%%~nxi
rename %1 "%number%-%fname%"
echo "%number%-%fname%"
goto :eof

Update от some41: дык месье пользоваться не умеет

@echo off

setlocal enabledelayedexpansion

for %%i in (*.m3u) do (
    echo Processing %%i
    set N=0
    for /f "delims=" %%j in (%%i) do (
        set /A N=N+1
        if !N! lss 10 set N=0!N!
        rename %%j "!N!. %%~nxj"
    )
)

Признаю себя чайником. Со свистком.

Update от soloviewoff: Могу нескромно порекомендовать вот это - http://www.rsdn.ru/article/winshell/batanyca.xml. Заметки на полях, сам регулярно перечитываю... :)