Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off
- title ATS : Agent Tom Search
- color 0E
- :debut
- cls
- echo.
- echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
- echo º Bienvenue sur ATS, la recherche de fichiers sous DOS º
- echo º DerniŠre mise … jour fait le: 25/08/11 º
- echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
- echo.
- echo Auteur du programme : little boy62
- echo O— me contacter : tomcena_18@live.fr
- echo.
- echo /!\ Si besoin de renseignements, merci de m'envoyer un mail (cf mail ci-dessus)
- echo.
- echo Appuyez sur une touche pour lancer le programme
- pause>nul
- goto menu
- :menu
- cls
- If exist "%homedrive%\ATS.txt" del /Q "%homedrive%\ATS.txt"
- echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
- echo º 1 Introduction º
- echo º 2 Recherche º
- 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 L=Veuillez marquer la lettre du p‚riph‚rique pour effectuer la recherche (exemple : C)
- echo.
- set /p A=Veuillez indiquer ce que vous recherchez
- echo.
- set /p EXT=Veuillez indiquer l'extension du fichier recherch‚ (exemple : txt / exe ...etc...)
- cls
- set num=1
- set num2=%num%+1
- for /f "tokens=*" %%b in ('dir /A /B /S "%L%:\*%A%*.%EXT%"') do if exist "%%~b" (
- echo %num2%. %%b >> "%homedrive%\ATS.txt")
- echo.
- If exist "%homedrive%\ATS.txt" (
- echo Un rapport, intitul‚ ATS.txt, doit ˆtre cr‚e, dans la racine du disque dur
- echo Appuyez sur une touche pour l'ouvrir
- pause>nul
- start notepad "%homedrive%\ATS.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