Récupérer un type de fichier sur lecteurs voulus

Récupérer un type de fichier sur lecteurs voulus - Shell/Batch - Programmation

Marsh Posté le 01-09-2010 à 16:45:37    

Bonjour, après plusieurs heures sur un tit prog pour récupérer un type de fichier choisi sur tous les lecteurs en d'un disk défini dans les variables. j'en suis la.
Tout fonctionne.  
Voyez vous par contre des choses à améliorer? Simplifier? faire autrement?
notamment sur le test des lecteurs....(peut on incrémenter facilement un caractère genre "c=c+1-->d"
Merci ++
Cela servira peut être à d'autres en plus.
 
 

Code :
  1. @echo on&setlocal EnableExtensions EnableDelayedExpansion
  3. rem definition des variable disk destination et flag
  4. set destfolder=g:\test
  5. set disk=0
  6. set /A flag=0
  7. set type=jpg
  8. rem reste à faire en menu pour type de fichier et destination (comon) éventuellement lecteurs à tester
  10. rem set de la variable disk après testdisk (mettre a:z pour tous les lecteurs)
  11. :0
  12. set disk=u:\
  13. goto testdisk
  14. :1
  15. set disk=d:\
  16. goto testdisk
  17. :2
  18. set disk=e:\
  19. goto testdisk
  20. :3
  21. exit
  23. rem test di la lettre du lecteur existe
  24. :testdisk
  25. if exist %disk% goto scan
  26. if not exist %disk% goto wrong 
  29. rem scan des fichiers
  30. :scan
  31. for /f "delims=" %%Y in ('dir %disk% /b /s'
  32. ) do (for /f "delims=" %%Z in ('dir /B /s "%%~fY\*.%type%"') do (
  33. copy "%%Z" "%destfolder%\%%~nZ.jpg"
  34. ))
  35. set /A flag=%flag%+1
  36. goto %flag%
  38. rem si existe pas on augmente le flag pour tester un autre lecteur
  39. :wrong
  40. echo il n'y a pas de disque avec cette lettre!
  41. set /A flag=%flag%+1
  42. goto %flag%

Reply

Marsh Posté le 01-09-2010 à 16:45:37   

Reply

Marsh Posté le 01-09-2010 à 18:07:49    

Modification avec menu:
Choix des type de fichier
Choix de la destination

Code :
  1. @echo off&setlocal EnableExtensions EnableDelayedExpansion
  3. cls
  5. :menu
  7. REM PRESENTATION
  9. echo                      -- Scan-4-Bck_up filetype by ***komar_666*** --
  10. echo -- Select filetype --
  11. echo 1 === Rar
  12. echo 2 === Doc
  13. echo 3 === Csv
  14. echo 4 === Jpg
  15. echo 5 === Another
  17. set var=
  18. set /p var=Your choice ?
  19. if '%var%'=='1'  goto rar
  20. if '%var%'=='2'  goto doc
  21. if '%var%'=='3'  goto csv
  22. if '%var%'=='4'  goto jpg
  23. if '%var%'=='5'  goto another
  24.  echo The choice %var% is not valid.
  25. echo.
  26. goto menu
  28. :menu2
  29. echo -- Select destination folder --
  30. set /p destfolder= Destination folder. May exist :
  31. goto 0
  35. REM PROG!!!
  36. rem definition des variable disk destination et flag
  37. set disk=0
  38. set /A flag=0
  42. :rar
  43. set type=rar
  44. goto menu2
  45. :doc
  46. set type=doc
  47. goto menu2
  48. :csv
  49. set type=csv
  50. goto menu2
  51. :jpg
  52. set type=jpg
  53. goto menu2
  54. :another
  55. set /p type= Enter filetype, pls :
  56. goto menu2
  58. rem set de la variable disk après testdisk (mettre a:z pour tous les lecteurs)
  59. :0
  60. set disk=u:\
  61. goto testdisk
  62. :1
  63. set disk=d:\
  64. goto testdisk
  65. :2
  66. set disk=e:\
  67. goto testdisk
  68. rem end of prog
  69. :3
  70. echo Scan-4-Bck_up will shutdown
  71. exit
  73. rem if drive exist
  74. :testdisk
  75. if exist %disk% goto variable
  76. if not exist %disk% goto wrong
  81. rem scan of files
  83. :variable
  84. rem definition variables avant scan
  85. rem ...plus besoin set destfolder=g:\test
  86. echo -Drive %disk% found! Start scanning........
  87. echo -Pls wait
  88. goto scan
  90. :scan
  91. for /f "delims=" %%Y in ('dir %disk% /b /s'
  92. ) do (for /f "delims=" %%Z in ('dir /B /s "%%~fY\*.%type%"') do (
  93. copy "%%Z" "%destfolder%\%%~nZ.%type%"
  94. echo %%~fY\%%~nZ.%type%
  95. ))
  96. set /A flag=%flag%+1
  97. goto %flag%
  99. rem if drive doesn't exist flag+1
  100. :wrong
  101. echo -Thereis no drive %disk%
  102. set /A flag=%flag%+1
  103. goto %flag%


Reply

Marsh Posté le 01-09-2010 à 18:15:56    

a venir un net share et selection du lecteur.... si quelqun à une meilleure idée...?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed