Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off
- title TomSearch : Programme de recherche MS-DOS
- color 0E
- :debut
- cls
- echo.
- echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
- echo º Bienvenue sur MP3Search, la recherche de fichiers MP3 sous DOS º
- echo º DerniŠre mise … jour : 28/07/11 º
- echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
- echo.
- echo Auteur du programme : little boy62
- echo O— me contacter : tomcena_18@live.fr
- echo.
- echo.
- echo Appuyez sur une touche pour lancer le programme
- pause>nul
- goto menu
- :menu
- cls
- If exist "%homedrive%\MP3Search.txt" del /Q "%homedrive%\MP3Search.txt"
- echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
- echo º 1 Introduction º
- echo º 2 Recherche de MP3 º
- echo º 3 Quitter º
- echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
- echo.
- set /p choix=Quelle action effectuer ?
- if %choix%==1 goto debut
- if %choix%==2 goto recherche
- if %choix%==3 goto exit
- goto Error
- :recherche
- cls
- echo Programme de recherche lanc‚...
- echo.
- set /p A=Veuillez indiquer ce que vous recherchez
- echo.
- set /p L=Veuillez marquer la lettre du p‚riph‚rique pour effectuer la recherche (exemple : C)
- cls
- for /f "tokens=*" %%b in ('dir /A /B /S "%L%:\*.*" ^|findstr -I "%A%*.mp3"') do if exist "%%~b" (
- echo %%~b >> "%homedrive%\MP3Search.txt")
- echo.
- If exist "%homedrive%\MP3Search.txt" (
- echo Un rapport, intitul‚ MP3Search.txt, doit ˆtre cr‚e, dans la racine du disque dur
- echo Appuyez sur une touche pour l'ouvrir
- pause>nul
- start notepad "%homedrive%\MP3Search.txt"
- ) ELSE (echo D‚sol‚, la recherche n'a rien donn‚)
- echo.
- echo.
- echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
- echo º Recherche termin‚ ! º
- echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
- echo.
- echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
- echo º 1 Retour au menu º
- echo º 2 Quitter le programme º
- echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
- echo.
- set /p choix= Veuillez indiquer votre choix :
- if %choix%==1 goto menu
- if %choix%==2 goto exit
- :Error
- echo.
- Echo Cette action n'existe pas. Veuillez appuyer sur une touche pour recommencer
- pause>nul
- goto menu
- :exit
- exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement