Liste de musique sur l'ordi

@echo off
setlocal enableextensions enabledelayedexpansion
chcp 1252 >nul

set extMusiques=*.mp3 *.mid *.flac *.m3u *.wma *.aac *.wav *.ape *.ogg

:debut

set "dossier=%USERPROFILE%\Music"
cls & echo. & echo Quel est le dossier contenant la musique à traiter ?
echo [dossier par défaut = %USERPROFILE%\Music]
echo. & set /p dossier="Votre choix : "
if not exist "%dossier%" (goto :debut)

set "confirm="
cls & echo. & echo Le dossier à traiter est : ### %dossier% ###
set /p confirm="Confirmer ? [O-N] "
if not defined confirm (exit /b 1)
if /i "%confirm%"=="O" (cd %dossier%) else (exit /b 1)

for /r %%A in (%extMusiques%) do (
	set /a pos=traitement=0
	echo %%~nA | findstr /r "^[0-9]" >nul && (call :decalage "%%~nA" "%%~xA")
	if !traitement! EQU 1 (ren "%%~A" "!new!%%~xA")
)

echo. & pause
exit /b 0

:decalage

set "nom=%~1#"
set /a pos+=1
set "caractere=!nom:~%pos%,1!"

for /l %%E in (0,1,9) do (if "!caractere!"=="%%E" goto :decalage)
if "!caractere!"=="." goto :decalage
if "!caractere!"=="-" goto :decalage
if "!caractere!"==" " goto :decalage

set "nouveau=!nom:~%pos%!"
if "!nouveau!"=="#" (set "new=unnamed") else (set "new=!nouveau:~,-1!")

set copie=0
set file=!new!

:test
if exist "!new!%~2" (
	set /a copie+=1
	set index=000!copie!
	set index=!index:~-4!
	set "new=!file!_[!index!]"
	goto :test
)

echo. & echo %~1%~2 ==^>^> !new!%~2
set traitement=1

goto :eof