Dossier téléchargement selon fichier

@Echo off
Setlocal
:: Dossier où se trouvent les sous-dossiers (ceci permet l'exécution du batch depuis n'importe quel répertoire)
cd C:\Users\user\Downloads\

:: Définition des extensions à prendre en compte
Set extension=exe
Set extension2=mp3
Set extension3=mid

:: Filtrer les types de fichiers dans les sous-dossiers
For /f "tokens=*" %%a In ('dir /s /b /a-d "*.*"') Do (
:: Contrôle du type d'extension avec déplacement dans dossier précis
  If %%~xa==.%extension% move /y "%%a" C:\Users\user\Desktop\
  If %%~xa==.%extension2% move /y "%%a" C:\Users\user\Music\
  If %%~xa==.%extension3% move /y "%%a" C:\Users\user\Music\
 )
Endlocal
:: Mettre deux :: devant le "pause" ci-dessous pour refermer automatiquement l'invite de commande après l'exécution du batch
pause

Set extension2=mp3, mid, flac

@Echo off
Setlocal enableextensions enabledelayedexpansion


:: on définit le dossier racine

set sourcepath=%CD%

cd %sourcepath%
if not %errorlevel%==0 goto fin


:: on protège les dossiers système

for /f "tokens=1* delims=µ" %%a in ('"tree \µµµ%sourcepath%|find ":\""') do (set "majuscule=%%b")

if !majuscule! == %SystemDrive% goto fin
if !majuscule! == %SystemDrive%\ goto fin

set str=%windir%
call set result=%%sourcepath:!str!=nasgul%%
if not !result!==!sourcepath! goto fin

set str=%ProgramData%
call set result=%%sourcepath:!str!=nasgul%%
if not !result!==!sourcepath! goto fin

set str=%ProgramFiles%
call set result=%%sourcepath:!str!=nasgul%%
if not !result!==!sourcepath! goto fin

set str="%ProgramFiles(x86)%"
call set result=%%sourcepath:!str!=nasgul%%
if not !result!==!sourcepath! goto fin


:: on définit le répertoire de destination pour chaque type de fichier

set programmespath="%USERPROFILE%\Downloads\Programmes"
if not exist %programmespath% mkdir %programmespath%

set videospath="%USERPROFILE%\Videos\"
if not exist %videospath% mkdir %videospath%

set picturespath="%USERPROFILE%\Pictures\"
if not exist %picturespath% mkdir %picturespath%

set musicpath="%USERPROFILE%\Music\"
if not exist %musicpath% mkdir %musicpath%

set documentspath="%USERPROFILE%\Documents"
if not exist %documentspath% mkdir %documentspath%

set torrentspath="%USERPROFILE%\Downloads\Torrents"
if not exist %torrentspath% mkdir %torrentspath%


:: on affiche le dossier racine

color 0A
echo.
echo *****************************************************************************
echo.
echo      REPERTOIRE DE TRAVAIL = %sourcepath%
echo.
echo *****************************************************************************
echo.
echo.
echo Destination des programmes = %programmespath%
echo.
echo Destination des videos     = %videospath%
echo.
echo Destination des images     = %picturespath%
echo.
echo Destination des musiques   = %musicpath%
echo.
echo Destination des documents  = %documentspath%
echo.
echo Destination des torrents   = %torrentspath%
echo.
echo.
pause
cls
color 0B
echo.


:: on traite les sous-dossiers contenant des programmes

For /f "tokens=*" %%a In ('dir /b /ad "*.*"') Do (
For /f "tokens=*" %%b In ('dir /b /a-d-s-l "%%a"') Do (
For %%i in (.exe .msi) Do (
If %%~xb==%%i move /y "%%a" %programmespath% > nul
echo Fichier = %%a\%%b
echo.
)
)
)


:: on traite les sous-dossiers contenant des images

For /f "tokens=*" %%a In ('dir /b /ad "*.*"') Do (
For /f "tokens=*" %%b In ('dir /b /a-d-s-l "%%a"') Do (
For %%i in (.jpeg .jpg .png .tiff .gif) Do (
If %%~xb==%%i move /y "%%a" %picturespath% > nul
echo Fichier = %%a\%%b
echo.
)
)
)

:: on traite les sous-dossiers contenant des vidéos

For /f "tokens=*" %%a In ('dir /b /ad "*.*"') Do (
For /f "tokens=*" %%b In ('dir /b /a-d-s-l "%%a"') Do (
For %%i in (.mkv .avi .mp4 .mpg .mpeg .mov .wmv .flv) Do (
If %%~xb==%%i move /y "%%a" %videospath% > nul
echo Fichier = %%a\%%b
echo.
)
)
)


:: on traite les sous-dossiers contenant des musiques

For /f "tokens=*" %%a In ('dir /b /ad "*.*"') Do (
For /f "tokens=*" %%b In ('dir /b /a-d-s-l "%%a"') Do (
For %%i in (.mp3 .mid .flac .m3u .wma .aac .wav .ape) Do (
If %%~xb==%%i move /y "%%a" %musicpath% > nul
echo Fichier = %%a\%%b
echo.
)
)
)


:: on traite les fichiers du dossier racine

For /f "tokens=*" %%e In ('dir /b /a-d-s-l "*.*"') Do (
For %%i in (*.doc *.docx *.xls *.xlsx *.pptx *.xlsm *.docm *.ppt *.odt *.ods *.odp *.odb *.odg *.rtf *.txt *.pdf) Do (move /y "%%i" %documentspath% > nul)
For %%i in (*.mp3 *.mid *.flac *.m3u *.wma *.aac *.wav *.ape) Do (move /y "%%i" %musicpath% > nul)
For %%i in (*.mkv *.avi *.mp4 *.mpg *.mpeg *.mov *.wmv *.flv) Do (move /y "%%i" %videospath% > nul)
For %%i in (*.jpeg *.jpg *.png *.tiff *.gif) Do (move /y "%%i" %picturespath% > nul)
For %%i in (*.exe *.msi) Do (move /y "%%i" %programmespath% > nul)
For %%i in (*.torrent) Do (move /y "%%i" %torrentspath% > nul)
echo Fichier = %%e
echo. 
)

:fin    
Endlocal
cls
color 0A
echo.
echo ***********************************************
echo.
echo *****   FIN DE LA SEQUENCE DE RANGEMENT   *****
echo.
echo ***********************************************
echo.
echo.
pause
:eof