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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Récupérer un type de fichier sur lecteurs voulus

komar_666

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 :

@echo on&setlocal EnableExtensions EnableDelayedExpansion
rem definition des variable disk destination et flag
set destfolder=g:\test
set disk=0
set /A flag=0
set type=jpg
rem reste à faire en menu pour type de fichier et destination (comon) éventuellement lecteurs à tester
rem set de la variable disk après testdisk (mettre a:z pour tous les lecteurs)
:0
set disk=u:\
goto testdisk
:1
set disk=d:\
goto testdisk
:2
set disk=e:\
goto testdisk
:3
exit
rem test di la lettre du lecteur existe
:testdisk
if exist %disk% goto scan
if not exist %disk% goto wrong
rem scan des fichiers
:scan
for /f "delims=" %%Y in ('dir %disk% /b /s'
) do (for /f "delims=" %%Z in ('dir /B /s "%%~fY\*.%type%"') do (
copy "%%Z" "%destfolder%\%%~nZ.jpg"
))
set /A flag=%flag%+1
goto %flag%
rem si existe pas on augmente le flag pour tester un autre lecteur
:wrong
echo il n'y a pas de disque avec cette lettre!
set /A flag=%flag%+1
goto %flag%

Publicité

komar_666

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

Code :

@echo off&setlocal EnableExtensions EnableDelayedExpansion
cls
:menu
REM PRESENTATION
echo -- Scan-4-Bck_up filetype by ***komar_666*** --
echo -- Select filetype --
echo 1 === Rar
echo 2 === Doc
echo 3 === Csv
echo 4 === Jpg
echo 5 === Another
set var=
set /p var=Your choice ?
if '%var%'=='1' goto rar
if '%var%'=='2' goto doc
if '%var%'=='3' goto csv
if '%var%'=='4' goto jpg
if '%var%'=='5' goto another
echo The choice %var% is not valid.
echo.
goto menu
:menu2
echo -- Select destination folder --
set /p destfolder= Destination folder. May exist :
goto 0
REM PROG!!!
rem definition des variable disk destination et flag
set disk=0
set /A flag=0
:rar
set type=rar
goto menu2
:doc
set type=doc
goto menu2
:csv
set type=csv
goto menu2
:jpg
set type=jpg
goto menu2
:another
set /p type= Enter filetype, pls :
goto menu2
rem set de la variable disk après testdisk (mettre a:z pour tous les lecteurs)
:0
set disk=u:\
goto testdisk
:1
set disk=d:\
goto testdisk
:2
set disk=e:\
goto testdisk
rem end of prog
:3
echo Scan-4-Bck_up will shutdown
exit
rem if drive exist
:testdisk
if exist %disk% goto variable
if not exist %disk% goto wrong
rem scan of files
:variable
rem definition variables avant scan
rem ...plus besoin set destfolder=g:\test
echo -Drive %disk% found! Start scanning........
echo -Pls wait
goto scan
:scan
for /f "delims=" %%Y in ('dir %disk% /b /s'
) do (for /f "delims=" %%Z in ('dir /B /s "%%~fY\*.%type%"') do (
copy "%%Z" "%destfolder%\%%~nZ.%type%"
echo %%~fY\%%~nZ.%type%
))
set /A flag=%flag%+1
goto %flag%
rem if drive doesn't exist flag+1
:wrong
echo -Thereis no drive %disk%
set /A flag=%flag%+1
goto %flag%

komar_666

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

FORUM HardWare.fr

Programmation

Shell/Batch

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

Sujets relatifs
[SQL Server 2005] Exporter une table vers un fichier texte via SSIS	Récupérer la valeur d'un bouton radio en JS
Type d'un template	Type erasure et accesseurs
Impossible de copier/coller un path dans un input type file sous FF3	faire une recherchev et sommer les colonnes sur un fichier excel avec
Erreur 13 :incompatibilité type	Copie de fichier : Quel langage?
[VBS] Tester l'existence d'un fichier CSV sur intranet	Ouvrir un fichier, quelles solutions?
Plus de sujets relatifs à : Récupérer un type de fichier sur lecteurs voulus

Page générée en 0.067 secondes