Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off
- title Utilitaire de gestion de fichiers automatise
- REM <-- Ligne Auto-Test -->
- REM Mkdir G:\SCAN
- :loop
- REM <-- Warning -->
- @echo off
- cls
- echo TOUTES LES OPERATIONS SONT AUTOMATISES, ENTRAVER LE BON DEROULEMENT
- echo DE CES OPERATIONS PEUT ENTRAINER DES DOMMAGES CRITIQUES.
- echo Lancement de la console.....
- REM <-- Si réponse non reconnu -->
- :MauvaiseReponse(Image)
- echo Souhaitez-vous verifier la qualite des images? (Oui/Non)
- set/p Reponse="> "
- REM <-- Oui => OpenFolder => Rar => Suite => End -->
- REM <-- Non => Rar => Suite => End -->
- if %Reponse%==Oui goto OpenFolder
- if %Reponse%==O goto OpenFolder
- if %Reponse%==oui goto OpenFolder
- if %Reponse%==o goto OpenFolder
- if %Reponse%==Non goto Rar
- if %Reponse%==N goto Rar
- if %Reponse%==non goto Rar
- if %Reponse%==n goto Rar
- REM <-- Mauvaise Reponse(Image) (Choix non reconnu) -->
- echo Oups! Je n'ai pas compris votre reponse, veuillez ressayer.
- Goto MauvaiseReponse(Image)
- REM <-- Rar -->
- :Rar
- cls
- :RarEchec
- echo Veuillez saisir le nom du fichier rar a creer dans "Caisse_2"
- set/p NomDuRar="> "
- G:\rar a G:\Caisse_2\%NomDuRar%.rar SCAN
- PAUSE
- REM <-- Verification de l'existance de l'archive créé -->
- echo DIAGNOSTIC: VERIFICATION DU BON DEROULEMENT DES ETAPES....
- If exist G:\Caisse_2\%NomDuRar%.rar goto RarCree
- echo ERREUR LORS DE LA CREATION DU FICHIER RAR !
- echo Renvoi vers l'etape de creation du fichier rar.....
- goto RarEchec
- :RarCree
- If exist G:\Caisse_2\%NomDuRar%.rar echo Verification de la presence du fichier Rar......OK
- PAUSE
- if exist G:\Caisse_2\%NomDuRar%.rar goto Rmdir
- :Rmdir
- rmdir /s /q G:\SCAN
- PAUSE
- Goto Suite
- REM <-- Non lu par Suite. -->
- :OpenFolder
- cls
- start G:\SCAN
- goto Rar
- REM <-- Suite -->
- :Suite
- cls
- echo Souhaitez-vous quitter l'utilitaire? (Oui/Non)
- set/p Reponse="> "
- if %Reponse%==Oui goto End
- if %Reponse%==O goto End
- if %Reponse%==oui goto End
- if %Reponse%==o goto End
- if %Reponse%==Non goto loop
- if %Reponse%==N goto loop
- if %Reponse%==non goto loop
- if %Reponse%==n goto loop
- REM <-- Si réponse non reconnu -->
- echo Oups! Je n'ai pas compris votre reponse, veuillez ressayer.
- Goto Suite
- :End
- PAUSE
- exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement