Advertisement
Guest User

Untitled

a guest
Oct 12th, 2017
397
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 2.73 KB | None | 0 0
  1. @echo off
  2. title ATS  : Agent Tom Search
  3. color 0E
  4.  
  5. :debut
  6. cls
  7. echo.
  8. echo          ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  9. echo          º   Bienvenue sur ATS, la recherche de fichiers sous DOS   º
  10. echo          º          DerniŠre mise … jour fait le: 25/08/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 /!\ Si besoin de renseignements, merci de m'envoyer un mail (cf mail ci-dessus)
  17. echo.
  18. echo Appuyez sur une touche pour lancer le programme
  19. pause>nul
  20. goto menu
  21.  
  22. :menu
  23. cls
  24. If exist "%homedrive%\ATS.txt" del /Q "%homedrive%\ATS.txt"
  25. echo          ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  26. echo          º 1 Introduction                                  º
  27. echo          º 2 Recherche                                     º
  28. echo          º 3 Quitter                                       º
  29. echo          ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  30. echo.
  31. set /p choix=Quelle action effectuer ?
  32. if %choix%==1 goto debut
  33. if %choix%==2 goto recherche
  34. if %choix%==3 goto exit
  35. goto Error
  36.  
  37. :recherche
  38. cls
  39. echo Programme de recherche lanc‚...
  40. echo.
  41. set /p  L=Veuillez marquer la lettre du p‚riph‚rique  pour effectuer la recherche (exemple : C)
  42. echo.
  43. set /p A=Veuillez indiquer ce que vous recherchez
  44. echo.
  45. set /p EXT=Veuillez indiquer l'extension du fichier recherch‚ (exemple : txt / exe ...etc...)
  46. cls
  47.  
  48. set num=1
  49. set num2=%num%+1
  50. for /f "tokens=*" %%b in ('dir /A /B /S "%L%:\*%A%*.%EXT%"') do if exist "%%~b" (
  51. echo %num2%. %%b >> "%homedrive%\ATS.txt")
  52. echo.
  53. If exist "%homedrive%\ATS.txt" (
  54. echo Un rapport, intitul‚ ATS.txt, doit ˆtre cr‚e, dans la racine du disque dur
  55. echo Appuyez sur une touche pour l'ouvrir
  56. pause>nul
  57. start notepad "%homedrive%\ATS.txt"
  58. ) ELSE (echo D‚sol‚, la recherche n'a rien donn‚)
  59. echo.
  60. echo.
  61. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  62. echo º Recherche termin‚ ! º
  63. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  64. echo.
  65. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  66. echo º 1 Retour au menu       º
  67. echo º 2 Quitter le programme º
  68. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  69. echo.
  70. set /p choix= Veuillez indiquer votre choix :
  71. if %choix%==1 goto menu
  72. if %choix%==2 goto exit
  73.  
  74. :Error
  75. echo.
  76. Echo Cette action n'existe pas. Veuillez appuyer sur une touche pour recommencer
  77. pause>nul
  78. goto menu
  79.  
  80. :exit
  81. exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement