Advertisement
Guest User

Untitled

a guest
Oct 12th, 2017
368
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. @echo off
  2. title ATS  : Agent Tom Search
  3. color 0E
  4. SETLOCAL ENABLEDELAYEDEXPANSION
  5.  
  6. :debut
  7. cls
  8. echo.
  9. echo          ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  10. echo          º   Bienvenue sur ATS, la recherche de fichiers sous DOS   º
  11. echo          º          DerniŠre mise … jour fait le: 25/08/11          º
  12. echo          ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  13. echo.
  14. echo Auteur du programme : little boy62
  15. echo O— me contacter : tomcena_18@live.fr
  16. echo.
  17. echo /!\ Si besoin de renseignements, merci de m'envoyer un mail (cf mail ci-dessus)
  18. echo.
  19. echo Appuyez sur une touche pour lancer le programme
  20. pause>nul
  21. goto menu
  22.  
  23. :menu
  24. cls
  25. If exist "%homedrive%\ATS.txt" del /Q "%homedrive%\ATS.txt"
  26. echo          ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  27. echo          º 1 Introduction                                  º
  28. echo          º 2 Recherche                                     º
  29. echo          º 3 Quitter                                       º
  30. echo          ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  31. echo.
  32. set /p choix=Quelle action effectuer ?
  33. if %choix%==1 goto debut
  34. if %choix%==2 goto recherche
  35. if %choix%==3 goto exit
  36. goto Error
  37.  
  38. :recherche
  39. cls
  40. echo Programme de recherche lanc‚...
  41. echo.
  42. set /p  L=Veuillez marquer la lettre du p‚riph‚rique  pour effectuer la recherche (exemple : C)
  43. echo.
  44. set /p A=Veuillez indiquer ce que vous recherchez
  45. echo.
  46. set /p EXT=Veuillez indiquer l'extension du fichier recherch‚ (exemple : txt / exe ...etc...)
  47. cls
  48. set /A num=0
  49. for /f "tokens=*" %%b in ('dir /A /B /S "%L%:\*%A%*.%EXT%"') do if exist "%%~b" (
  50. set /A num=!num!+1
  51. echo !num! - %%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