Advertisement
Guest User

Untitled

a guest
Oct 4th, 2017
492
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 2.66 KB | None | 0 0
  1. @echo off
  2. title TomSearch : Programme de recherche MS-DOS
  3. color 0E
  4.  
  5. :debut
  6. cls
  7. echo.
  8. echo          ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  9. echo          º Bienvenue sur MP3Search, la recherche de fichiers MP3 sous DOS º
  10. echo          º               DerniŠre mise … jour : 28/07/11                  º
  11. echo          ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  12. echo.
  13. echo Auteur du programme : little boy62
  14. echo O— me contacter : tomcena_18@live.fr
  15. echo.
  16. echo.
  17. echo Appuyez sur une touche pour lancer le programme
  18. pause>nul
  19. goto menu
  20.  
  21. :menu
  22. cls
  23. If exist "%homedrive%\MP3Search.txt" del /Q "%homedrive%\MP3Search.txt"
  24. echo          ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  25. echo          º 1 Introduction                                         º
  26. echo          º 2 Recherche de MP3                                     º
  27. echo          º 3 Quitter                                              º
  28. echo          ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  29. echo.
  30. set /p choix=Quelle action effectuer ?
  31. if %choix%==1 goto debut
  32. if %choix%==2 goto recherche
  33. if %choix%==3 goto exit
  34. goto Error
  35.  
  36. :recherche
  37. cls
  38. echo Programme de recherche lanc‚...
  39. echo.
  40. set /p A=Veuillez indiquer ce que vous recherchez
  41. echo.
  42. set /p  L=Veuillez marquer la lettre du p‚riph‚rique  pour effectuer la recherche (exemple : C)
  43. cls
  44. for /f "tokens=*" %%b in ('dir /A /B /S "%L%:\*.*" ^|findstr -I "%A%*.mp3"') do if exist "%%~b" (
  45. echo %%~b >> "%homedrive%\MP3Search.txt")
  46. echo.
  47. If exist "%homedrive%\MP3Search.txt" (
  48. echo Un rapport, intitul‚ MP3Search.txt, doit ˆtre cr‚e, dans la racine du disque dur
  49. echo Appuyez sur une touche pour l'ouvrir
  50. pause>nul
  51. start notepad "%homedrive%\MP3Search.txt"
  52. ) ELSE (echo D‚sol‚, la recherche n'a rien donn‚)
  53. echo.
  54. echo.
  55. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  56. echo º Recherche termin‚ ! º
  57. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  58. echo.
  59. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  60. echo º 1 Retour au menu       º
  61. echo º 2 Quitter le programme º
  62. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  63. echo.
  64. set /p choix= Veuillez indiquer votre choix :
  65. if %choix%==1 goto menu
  66. if %choix%==2 goto exit
  67.  
  68. :Error
  69. echo.
  70. Echo Cette action n'existe pas. Veuillez appuyer sur une touche pour recommencer
  71. pause>nul
  72. goto menu
  73.  
  74. :exit
  75. exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement