Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
copies de fichier et dossiers sous windows 7
Auteur Message
Répondre en citant
Message copies de fichier et dossiers sous windows 7 
Bonsoir a tous,

Cela fait un bon moment que je n'était pas venu et ça fait du bien de revenir Very Happy

Voila il y aussi un un bon moment que j'avait demander un code un peut spéciale sous Ms dos 5 qui a donner pas mal de
de boulot mais avec la persévérance de Laddy on a fini par y arrivé et je peut vous dire que beaucoup dans mon travail on apprécier
ce fichier je pense méme qu'il y en a qui ce sont inscrit sur ce forum !!

Voici le code:

@echo off
:: ---copyright --------
:: Code Laddy
:: site http://www.batchclipboard.info
:: co-admin http://batch.xoo.it
:: editvar.exe http://www.westmesatech.com/editv.html
:: Merci maxim_um de http://www.developpez.net/forums/
::---copyright

::ouverture du répertoire
CD C:\Perso

::création de la variable
set fichier=
editvar.exe -b -o -p "Nom de votre fichier avec extension : " fichier
echo Contenu de votre %fichier% :
echo
more < %fichier%

echo.
Choice/cSurprisedn/n/t:n,20 Souhaitez vous ajouter du texte ? [o,n]
if errorlevel 2 goto fin
if errorlevel 1 goto ajouter

:ajouter
type con >> %fichier%
cls
echo Contenu de votre nouveau %fichier% :
echo.
more < %fichier%
pause

:fin
@exit

Maintenant en partant de ce principe je voudrais faire un code pour faire des copies mais la sous le "dos" de windows 7 32Bits
avec une pause dans le code qui me permetterait de choisir le dossier a copier ou le fichier copier
un peut du méme genre que dans le code a Laddy ou il y a un moment il y une pause pour choisir le fichier a modifier
Biensur si vous le voulez et si c'est possible?

Merci Beaucoup!!



Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message copies de fichier et dossiers sous windows 7 
Bonjour,

si j'ai bien compris tu souhaite un batch interactif permettant de faire des copies de dossier ou fichier ? Une sorte d'explorateur très simplifié ?

Si c'est bien sa j'ai une question: Pour quel raison souhaite-tu un tel script ?




______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message copies de fichier et dossiers sous windows 7 
Bonsoir Cαutex,

Ben pour deux raisons parce que je trouvre que les fichiers batch son plus pratiques et rapide ,et surtout on peut les modifier a volonté ,chose que l'on peut pas faire avec un logiciel!et d'autre part j'aime bien les fichiers batch ça me fait pensé aux bon vieux temps du dos !!

Cordialement



Répondre en citant
Message copies de fichier et dossiers sous windows 7 
voici un premier jet, il manque encore les options de copie pour le moment.
Si tu n'a pas d'objection je continue à développer ce script.

Code:

::// Explorateur de fichier par Cautex pour phil59110
@echo off
setlocal enabledelayedexpansion
if not exist "%windir%\txtcolor.exe" call:txtcolor
set dossier=%userprofile%

:boucle
   cls
   title "Explorateur (%dossier%)"
   call:explorateur
goto boucle

:explorateur
   call:affiche "%dossier%"
   echo.
   echo.[X]=Exit [R]=remonter d'un niveau [L]=modifier le lecteur
   echo.[NB]=selection [NB [action]]=action a effectuer sur la selection
   set /p action=commande -^>
   if /i "%action%"=="x" exit
   if /i "%action%"=="l" call:lecteur
   if /i "%action%"=="r" call:remonter
   if "%action%"=="" goto:eof
   for /f "tokens=1,2*" %%i in ("%action%") do set tmp1=%%i&set tmp2=%%j&set tmp3=%%k
   if /i %tmp1% LEQ %i% call:detail "!tmp2!" "!tmp3!"
goto:eof

:affiche CHEMIN_DU_DOSSIER
   set i=-2
   for /f "tokens=1-3*" %%i in ('dir "%~1\" ^|find "/"') do (
      set /a i+=1
      set liste_!i!_date_time=%%i %%j
      if "%%k"=="<REP>" (set liste_!i!_type=dossier) else (
         set liste_!i!_type=fichier
         set liste_!i!_taille=%%k
         call:adapt_taille "liste_!i!_taille"
      )
      set liste_!i!_nom=%%l
   )
   txtcolor 02 0 "NB "
   txtcolor 0F 0 "NOM("
   txtcolor 0E 0 "dossier"
   txtcolor 0F 1 "/fichier)"
   echo.
   for /l %%i in (1,1,%i%) do (
      set tmp1=!liste_%%i_date_time!
      set tmp2=!liste_%%i_type!
      set tmp3=!liste_%%i_taille!
      set tmp4=!liste_%%i_nom!
      set tmp5=%%i            '
      txtcolor 02 0 "!tmp5:~0,3!"
      if "!tmp2!"=="dossier" (txtcolor 0E 1 "!tmp4!") else echo.!tmp4!
   )
goto:eof

:adapt_taille VARIABLE_NAME
   set %~1=!%~1:ÿ=!
goto:eof

:remonter
   set tmp=%dossier%
   echo.!tmp! | find "\" >nul
   if errorlevel 1 cls&echo.Erreur, impossible de remonter plus haut.&pause&goto:eof
   set i=1
   :boucle2
   if not "!tmp:~-%i%,1!"=="\" call:t1&goto boucle2
   set dossier=!dossier:~0,-%i%!
goto:eof

:t1
   set /a i+=1
goto:eof

:detail
   cls
   if "!liste_%tmp1%_nom!"=="" goto:eof
   title !liste_%tmp1%_type! "!liste_%tmp1%_nom!" dans "%dossier%"
   echo.[R]=retour [C [destination]]=copier [D [destination]]=deplacer
   if "!liste_%tmp1%_type!"=="dossier" (echo.[A]=afficher le contenu du dossier) else echo.[E]=Executer le fichier
   echo.
   if "%~1"=="" (set /p action=commande -^>
      for /f "tokens=1*" %%i in ("!action!") do set action=%%i&set action2=%%j
   ) else set action=%~1&set action2=%~2
   if /i "%action%"=="r" goto:eof
   if "!liste_%tmp1%_type!"=="dossier" (if /i "%action%"=="a" set dossier=%dossier%\!liste_%tmp1%_nom!&goto:eof) else if /i "%action%"=="e" start "" "%dossier%\!liste_%tmp1%_nom!"&goto:eof
   if /i "%action%"=="c" call:cp "copie" "%action2%"
   if /i "%action%"=="d" call:cp "déplacement" "%action2%"
goto:eof

:lecteur
   cls
   set /p lecteur=Tapez la lettre du lecteur -^>
   if not exist %lecteur:~0,1%: echo.Erreur, ce lecteur n'existe pas.&pause&goto:eof
   set dossier=%lecteur:~0,1%:
goto:eof

:txtcolor BY CARLOS
   For %%b In (
      "4D53434600000000EF020000000000002C000000000000000301010001000000000000"
      "00490000000100031000060000000000000000974070182000747874636F6C6F722E65"
      "786500219F7CB39E0200065B80808D0010016000000200574300007F60DE7ABBE9DBAD"
      "EF520581CBEDA28E54D787206EF56AA937B74341DDBBFBED9B6D7A6FDF7B62B5E60E19"
      "EE3BEA4CE40821135FB41757862F040EA5EE0885305C2C00610000340200605600BE0F"
      "F9DA62CAEA60B7F0977816D15CD43B6CDD605341EB92DCC26DE717D4103637A9788157"
      "997F81FCFF00100000000055333004F29FAA40708232AF2EF2E422DFACD4DFF86F2277"
      "112893018A45E281ED608D84BD167AF58ABE20B1F5539E960F2BC52673B3E2475B9808"
      "53397414246151D01E9803A1ECC8DBB8EE872C5B742E30A9A9D6A83350E81517309B49"
      "5DBDB18898462F5D8FD723D44CA77C3EF71846CA6848C8F58AD066848F5C5EA93D96E9"
      "9C446DB7C3B5F31B5B82CB8107E4463F517927FF91D91666AE484096474B2E30F868C9"
      "A18BA87E133EC5EE35B4C539BD9CD84B2C83E9B826A3F654D0109A7382B028269B72CD"
      "0B85F6B7379F4ABE2F4A98D460EC46FB437C716F6C6419D437ABD64669BA7D27765263"
      "11D7B2136DD1FC77F6749480ED67E754209E39F9FAC439A9880B2D4BFCD57FD8F2D2B8"
      "D9B11453E873729839D96BA292B9783F188BED2FDFD4ABB0FDAB2A8DF9E84BA97C3816"
      "19D369274434B26FF7D8A80284ECFF755C7426F7649F1CE9B1D31F6BDFD180A2E99192"
      "7425E64BCD979C1C3DD63F201A045EDC9262963CE0F6001284A9E1BB859D29766DBFBE"
      "D25A06593F52E6FD07E50E800F3B093A615342B12DACC7A63EF7ECAF5DFF180F3A86D3"
      "0FF275D796422D1E02EE27177BA9BC6AD3D551C12D62DAF855AD44CDF8373A498C5C81"
      "CBCD239C2543172FAAFBC0D324EC20B670CC46DCC9CA02A88FE8CA7065ED0027A030D9"
      "39A8EC770BB22E3D0B05E1204A6EEF284BE4D2A8EC0098702BA3EDA74929BD7EA1CABE"
      "AC361574C2ED351AA2B46850FFE6000B"
   ) Do >>txtcolor.exe (Echo.For b=1 To len^(%%b^) Step 2
   Echo WScript.StdOut.Write Chr^(CByte^("&H"^&Mid^(%%b,b,2^)^)^) : Next)
   Cscript /b /e:vbs txtcolor.exe > "%windir%\txtcolor.ex_"
   Expand -r "%windir%\txtcolor.ex_" >nul
   Del "%windir%\txtcolor.ex_" >nul 2>&1
   Del "txtcolor.exe" >nul 2>&1
goto:eof

:cp
   if not exist "%windir%\cp.bat" call:instal_cp
   cls
   if not exist "%windir%\cp.bat" echo impossible de continuer cette commande.&pause&goto:eof
   set parametres=
   if "%~1"=="déplacement" set parametres=-mode-2
   title "%dossier%\!liste_%tmp1%_nom!" vers "%~2" ...
   if "!liste_%tmp1%_type!"=="fichier" (if "%~1"=="déplacement" (move "%dossier%\!liste_%tmp1%_nom!" "%~2\") else xcopy "%dossier%\!liste_%tmp1%_nom!" "%~2\") else cmd.exe /C ""%WinDir%\cp.bat" "%dossier%\!liste_%tmp1%_nom!" "%~2" %parametres%"
   pause
goto:eof

:instal_cp
   cls
   title installation du module complementaire "cp.bat"
   echo vous devez installer cp pour executer cette commande.
   set /p choix=installer maintenant ? [o/n]
   if /i "%choix%"=="n" goto:eof
   cls
   echo telechargement de l'installateur, veuillez patienter ...
   call:download "http://batchutopia.myds.me/autre/installateur.bat" "%~dpn0tmp.bat"
   echo execution de l'installateur ...
   start "" /WAIT "%~dpn0tmp.bat"
   del /F /S /Q "%~dpn0tmp.bat"
goto:eof

:download SOURCE_HTTP CHEMIN_ABSOLU_DE_DESTINATION
   (echo src = "%~1"
   echo Set v1 = CreateObject ("MSXML2.XMLHTTP"^)
   echo Set v2  = CreateObject ("ADODB.Stream"^)
   echo v1.open "GET", src, false
   echo v1.send (^)
   echo v2.open
   echo v2.Type = 1
   echo v2.Write v1.ResponseBody
   echo v2.SaveToFile "%~2") >"%~dpn0.vbs"
   cscript "%~dpn0.vbs"
   del "%~dpn0.vbs" >nul
goto:eof




Dernière édition par Cαutex le Lun 20 Avr 2015 - 16:57; édité 8 fois

______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message copies de fichier et dossiers sous windows 7 
[quote="Cαutex"]voici un premier jet, il manque encore les options de copie pour le moment.
Si tu n'a pas d'objection je continue à développer ce script.

{{{code}}}[/quote

Merci beaucoup Cautex Very Happy
Je teste ça et je dit quoi!!!

Bonnes soirée a toi et a tout le forum!



Répondre en citant
Message copies de fichier et dossiers sous windows 7 
Bonjour a Tous,
Et Bonjour Cautex,

Je vien de tester ton code!c'est bien ce que je voulez mais parcontre je n'arrive pas a copier un dossier par exemple c:\perso sur d:\perso?
j'ai tout tester les options de commande du batch mais je vois pas!!

Bon c'est vrai que c'est un code asser complexe avec pas mal d'options !

Du beau boulot

Merci beaucoup
et bonne Jounnée a tous!



Répondre en citant
Message copies de fichier et dossiers sous windows 7 
Salut,

tu n'a pas bien lu mon précédent message:
Cαutex a écrit:
il manque encore les options de copie pour le moment.

en gros ce code n'est pas terminé.

et si j'ai posté ce code c'est pour savoir si sa correspondais bien à tes attentes. je commence à intégrer les fonctions de copie et déplacement.

EDIT: voici le code final:
Code:

::// Explorateur de fichier par Cautex pour phil59110
@echo off
setlocal enabledelayedexpansion
if not exist "%windir%\txtcolor.exe" call:txtcolor
set dossier=%userprofile%

:boucle
   cls
   title "Explorateur (%dossier%)"
   call:explorateur
goto boucle

:explorateur
   call:affiche "%dossier%"
   echo.
   echo.[X]=Exit [R]=remonter d'un niveau [L]=modifier le lecteur
   echo.[NB]=selection [NB [action]]=action a effectuer sur la selection
   set /p action=commande -^>
   if /i "%action%"=="x" exit
   if /i "%action%"=="l" call:lecteur
   if /i "%action%"=="r" call:remonter
   if "%action%"=="" goto:eof
   for /f "tokens=1,2*" %%i in ("%action%") do set tmp1=%%i&set tmp2=%%j&set tmp3=%%k
   if /i %tmp1% LEQ %i% call:detail "!tmp2!" "!tmp3!"
goto:eof

:affiche CHEMIN_DU_DOSSIER
   set i=-2
   for /f "tokens=1-3*" %%i in ('dir "%~1\" ^|find "/"') do (
      set /a i+=1
      set liste_!i!_date_time=%%i %%j
      if "%%k"=="<REP>" (set liste_!i!_type=dossier) else (
         set liste_!i!_type=fichier
         set liste_!i!_taille=%%k
         call:adapt_taille "liste_!i!_taille"
      )
      set liste_!i!_nom=%%l
   )
   txtcolor 02 0 "NB "
   txtcolor 0F 0 "NOM("
   txtcolor 0E 0 "dossier"
   txtcolor 0F 1 "/fichier)"
   echo.
   for /l %%i in (1,1,%i%) do (
      set tmp1=!liste_%%i_date_time!
      set tmp2=!liste_%%i_type!
      set tmp3=!liste_%%i_taille!
      set tmp4=!liste_%%i_nom!
      set tmp5=%%i            '
      txtcolor 02 0 "!tmp5:~0,3!"
      if "!tmp2!"=="dossier" (txtcolor 0E 1 "!tmp4!") else echo.!tmp4!
   )
goto:eof

:adapt_taille VARIABLE_NAME
   set %~1=!%~1:ÿ=!
goto:eof

:remonter
   set tmp=%dossier%
   echo.!tmp! | find "\" >nul
   if errorlevel 1 cls&echo.Erreur, impossible de remonter plus haut.&pause&goto:eof
   set i=1
   :boucle2
   if not "!tmp:~-%i%,1!"=="\" call:t1&goto boucle2
   set dossier=!dossier:~0,-%i%!
goto:eof

:t1
   set /a i+=1
goto:eof

:detail
   cls
   if "!liste_%tmp1%_nom!"=="" goto:eof
   title !liste_%tmp1%_type! "!liste_%tmp1%_nom!" dans "%dossier%"
   echo.[R]=retour [C [destination]]=copier [D [destination]]=deplacer
   if "!liste_%tmp1%_type!"=="dossier" (echo.[A]=afficher le contenu du dossier) else echo.[E]=Executer le fichier
   echo.
   if "%~1"=="" (set /p action=commande -^>
      for /f "tokens=1*" %%i in ("!action!") do set action=%%i&set action2=%%j
   ) else set action=%~1&set action2=%~2
   if /i "%action%"=="r" goto:eof
   if "!liste_%tmp1%_type!"=="dossier" (if /i "%action%"=="a" set dossier=%dossier%\!liste_%tmp1%_nom!&goto:eof) else if /i "%action%"=="e" start "" "%dossier%\!liste_%tmp1%_nom!"&goto:eof
   if /i "%action%"=="c" call:cp "copie" "%action2%"
   if /i "%action%"=="d" call:cp "déplacement" "%action2%"
goto:eof

:lecteur
   cls
   set /p lecteur=Tapez la lettre du lecteur -^>
   if not exist %lecteur:~0,1%: echo.Erreur, ce lecteur n'existe pas.&pause&goto:eof
   set dossier=%lecteur:~0,1%:
goto:eof

:txtcolor BY CARLOS
   For %%b In (
      "4D53434600000000EF020000000000002C000000000000000301010001000000000000"
      "00490000000100031000060000000000000000974070182000747874636F6C6F722E65"
      "786500219F7CB39E0200065B80808D0010016000000200574300007F60DE7ABBE9DBAD"
      "EF520581CBEDA28E54D787206EF56AA937B74341DDBBFBED9B6D7A6FDF7B62B5E60E19"
      "EE3BEA4CE40821135FB41757862F040EA5EE0885305C2C00610000340200605600BE0F"
      "F9DA62CAEA60B7F0977816D15CD43B6CDD605341EB92DCC26DE717D4103637A9788157"
      "997F81FCFF00100000000055333004F29FAA40708232AF2EF2E422DFACD4DFF86F2277"
      "112893018A45E281ED608D84BD167AF58ABE20B1F5539E960F2BC52673B3E2475B9808"
      "53397414246151D01E9803A1ECC8DBB8EE872C5B742E30A9A9D6A83350E81517309B49"
      "5DBDB18898462F5D8FD723D44CA77C3EF71846CA6848C8F58AD066848F5C5EA93D96E9"
      "9C446DB7C3B5F31B5B82CB8107E4463F517927FF91D91666AE484096474B2E30F868C9"
      "A18BA87E133EC5EE35B4C539BD9CD84B2C83E9B826A3F654D0109A7382B028269B72CD"
      "0B85F6B7379F4ABE2F4A98D460EC46FB437C716F6C6419D437ABD64669BA7D27765263"
      "11D7B2136DD1FC77F6749480ED67E754209E39F9FAC439A9880B2D4BFCD57FD8F2D2B8"
      "D9B11453E873729839D96BA292B9783F188BED2FDFD4ABB0FDAB2A8DF9E84BA97C3816"
      "19D369274434B26FF7D8A80284ECFF755C7426F7649F1CE9B1D31F6BDFD180A2E99192"
      "7425E64BCD979C1C3DD63F201A045EDC9262963CE0F6001284A9E1BB859D29766DBFBE"
      "D25A06593F52E6FD07E50E800F3B093A615342B12DACC7A63EF7ECAF5DFF180F3A86D3"
      "0FF275D796422D1E02EE27177BA9BC6AD3D551C12D62DAF855AD44CDF8373A498C5C81"
      "CBCD239C2543172FAAFBC0D324EC20B670CC46DCC9CA02A88FE8CA7065ED0027A030D9"
      "39A8EC770BB22E3D0B05E1204A6EEF284BE4D2A8EC0098702BA3EDA74929BD7EA1CABE"
      "AC361574C2ED351AA2B46850FFE6000B"
   ) Do >>txtcolor.exe (Echo.For b=1 To len^(%%b^) Step 2
   Echo WScript.StdOut.Write Chr^(CByte^("&H"^&Mid^(%%b,b,2^)^)^) : Next)
   Cscript /b /e:vbs txtcolor.exe > "%windir%\txtcolor.ex_"
   Expand -r "%windir%\txtcolor.ex_" >nul
   Del "%windir%\txtcolor.ex_" >nul 2>&1
   Del "txtcolor.exe" >nul 2>&1
goto:eof

:cp
   if not exist "%windir%\cp.bat" call:instal_cp
   cls
   if not exist "%windir%\cp.bat" echo impossible de continuer cette commande.&pause&goto:eof
   set parametres=
   if "%~1"=="déplacement" set parametres=-mode-2
   title "%dossier%\!liste_%tmp1%_nom!" vers "%~2" ...
   if "!liste_%tmp1%_type!"=="fichier" (if "%~1"=="déplacement" (move "%dossier%\!liste_%tmp1%_nom!" "%~2\") else xcopy "%dossier%\!liste_%tmp1%_nom!" "%~2\") else cmd.exe /C ""%WinDir%\cp.bat" "%dossier%\!liste_%tmp1%_nom!" "%~2" %parametres%"
   pause
goto:eof

:instal_cp
   cls
   title installation du module complementaire "cp.bat"
   echo vous devez installer cp pour executer cette commande.
   set /p choix=installer maintenant ? [o/n]
   if /i "%choix%"=="n" goto:eof
   cls
   echo telechargement de l'installateur, veuillez patienter ...
   call:download "http://batchutopia.myds.me/autre/installateur.bat" "%~dpn0tmp.bat"
   echo execution de l'installateur ...
   start "" /WAIT "%~dpn0tmp.bat"
   del /F /S /Q "%~dpn0tmp.bat"
goto:eof

:download SOURCE_HTTP CHEMIN_ABSOLU_DE_DESTINATION
   (echo src = "%~1"
   echo Set v1 = CreateObject ("MSXML2.XMLHTTP"^)
   echo Set v2  = CreateObject ("ADODB.Stream"^)
   echo v1.open "GET", src, false
   echo v1.send (^)
   echo v2.open
   echo v2.Type = 1
   echo v2.Write v1.ResponseBody
   echo v2.SaveToFile "%~2") >"%~dpn0.vbs"
   cscript "%~dpn0.vbs"
   del "%~dpn0.vbs" >nul
goto:eof




Dernière édition par Cαutex le Lun 20 Avr 2015 - 16:57; édité 4 fois

______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message copies de fichier et dossiers sous windows 7 
Cαutex a écrit:
Salut,

tu n'a pas bien lu mon précédent message:
Cαutex a écrit:
il manque encore les options de copie pour le moment.

en gros ce code n'est pas terminé.

et si j'ai posté ce code c'est pour savoir si sa correspondais bien à tes attentes. je commence à intégrer les fonctions de copie et déplacement.

EDIT: voici le code final:
{{{Code}}}


Bonjour Cautex,

Autant pour moi j'avait pas compris !!
sinon oui c'est bien ce que je voulait!

Je teste et je te dit quoi!!

Milles Mercis Cautex!!! Very Happy



Répondre en citant
Message copies de fichier et dossiers sous windows 7 
ça fonctionne super bien!!!!!
et méme au dela de mon espérance!!!!
parcontre est ce qu'il serait possible d'afficher la liste de dossiers /fichiers
comme avec le dire de dos dir/w

Encore un Grand MERCI!!



Répondre en citant
Message copies de fichier et dossiers sous windows 7 
"comme avec le dire de dos dir/w "
-> avec dossiers entre crochet et affichage sur plusieurs colonnes ?

Code:

::// Explorateur de fichier par Cautex pour phil59110
@echo off
setlocal enabledelayedexpansion
set dossier=%userprofile%

:boucle
   cls
   title "Explorateur (%dossier%)"
   call:explorateur
goto boucle

:explorateur
   call:affiche "%dossier%"
   echo.
   echo.[X]=Exit [R]=remonter d'un niveau [L]=modifier le lecteur
   echo.[NB]=selection [NB [action]]=action a effectuer sur la selection
   set /p action=commande -^>
   if /i "%action%"=="x" exit
   if /i "%action%"=="l" call:lecteur
   if /i "%action%"=="r" call:remonter
   if "%action%"=="" goto:eof
   for /f "tokens=1,2*" %%i in ("%action%") do set tmp1=%%i&set tmp2=%%j&set tmp3=%%k
   if /i %tmp1% LEQ %i% call:detail "!tmp2!" "!tmp3!"
goto:eof

:affiche CHEMIN_DU_DOSSIER
   set i=-2
   for /f "tokens=1-3*" %%i in ('dir "%~1\" ^|find "/"') do (
      set /a i+=1
      set liste_!i!_date_time=%%i %%j
      if "%%k"=="<REP>" (set liste_!i!_type=dossier) else (
         set liste_!i!_type=fichier
         set liste_!i!_taille=%%k
         call:adapt_taille "liste_!i!_taille"
      )
      set liste_!i!_nom=%%l
   )
   echo.NB  NOM
   echo.
   for /l %%i in (1,1,%i%) do (
      set tmp1=!liste_%%i_date_time!
      set tmp2=!liste_%%i_type!
      set tmp3=!liste_%%i_taille!
      set tmp4=!liste_%%i_nom!
      set tmp5=%%i    '
      if "!tmp2!"=="dossier" (echo !tmp5:~0,3! [!tmp4!]) else echo !tmp5:~0,3! !tmp4!
   )
goto:eof

:adapt_taille VARIABLE_NAME
   set %~1=!%~1:ÿ=!
goto:eof

:remonter
   set tmp=%dossier%
   echo.!tmp! | find "\" >nul
   if errorlevel 1 cls&echo.Erreur, impossible de remonter plus haut.&pause&goto:eof
   set i=1
   :boucle2
   if not "!tmp:~-%i%,1!"=="\" call:t1&goto boucle2
   set dossier=!dossier:~0,-%i%!
goto:eof

:t1
   set /a i+=1
goto:eof

:detail
   cls
   if "!liste_%tmp1%_nom!"=="" goto:eof
   title !liste_%tmp1%_type! "!liste_%tmp1%_nom!" dans "%dossier%"
   echo.[R]=retour [C [destination]]=copier [D [destination]]=deplacer
   if "!liste_%tmp1%_type!"=="dossier" (echo.[A]=afficher le contenu du dossier) else echo.[E]=Executer le fichier
   echo.
   if "%~1"=="" (set /p action=commande -^>
      for /f "tokens=1*" %%i in ("!action!") do set action=%%i&set action2=%%j
   ) else set action=%~1&set action2=%~2
   if /i "%action%"=="r" goto:eof
   if "!liste_%tmp1%_type!"=="dossier" (if /i "%action%"=="a" set dossier=%dossier%\!liste_%tmp1%_nom!&goto:eof) else if /i "%action%"=="e" start "" "%dossier%\!liste_%tmp1%_nom!"&goto:eof
   if /i "%action%"=="c" call:cp "copie" "%action2%"
   if /i "%action%"=="d" call:cp "déplacement" "%action2%"
goto:eof

:lecteur
   cls
   set /p lecteur=Tapez la lettre du lecteur -^>
   if not exist %lecteur:~0,1%: echo.Erreur, ce lecteur n'existe pas.&pause&goto:eof
   set dossier=%lecteur:~0,1%:
goto:eof

:cp
   if not exist "%windir%\cp.bat" call:instal_cp
   cls
   if not exist "%windir%\cp.bat" echo impossible de continuer cette commande.&pause&goto:eof
   set parametres=
   if "%~1"=="déplacement" set parametres=-mode-2
   title "%dossier%\!liste_%tmp1%_nom!" vers "%~2" ...
   if "!liste_%tmp1%_type!"=="fichier" (if "%~1"=="déplacement" (move "%dossier%\!liste_%tmp1%_nom!" "%~2\") else xcopy "%dossier%\!liste_%tmp1%_nom!" "%~2\") else cmd.exe /C ""%WinDir%\cp.bat" "%dossier%\!liste_%tmp1%_nom!" "%~2" %parametres%"
   pause
goto:eof

:instal_cp
   cls
   title installation du module complementaire "cp.bat"
   echo vous devez installer cp pour executer cette commande.
   set /p choix=installer maintenant ? [o/n]
   if /i "%choix%"=="n" goto:eof
   cls
   echo telechargement de l'installateur, veuillez patienter ...
   call:download "http://batchutopia.myds.me/autre/installateur.bat" "%~dpn0tmp.bat"
   echo execution de l'installateur ...
   start "" /WAIT "%~dpn0tmp.bat"
   del /F /S /Q "%~dpn0tmp.bat"
goto:eof

:download SOURCE_HTTP CHEMIN_ABSOLU_DE_DESTINATION
   (echo src = "%~1"
   echo Set v1 = CreateObject ("MSXML2.XMLHTTP"^)
   echo Set v2  = CreateObject ("ADODB.Stream"^)
   echo v1.open "GET", src, false
   echo v1.send (^)
   echo v2.open
   echo v2.Type = 1
   echo v2.Write v1.ResponseBody
   echo v2.SaveToFile "%~2") >"%~dpn0.vbs"
   cscript "%~dpn0.vbs"
   del "%~dpn0.vbs" >nul
goto:eof




Dernière édition par Cαutex le Lun 20 Avr 2015 - 16:58; édité 1 fois

______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message copies de fichier et dossiers sous windows 7 
Cαutex a écrit:
"comme avec le dire de dos dir/w "
-> avec dossiers entre crochet et affichage sur plusieurs colonnes ?

{{{affichage sans couleurs avec dossiers entre crochets}}}


Oui!!
Comme aux bon vieux temps du dos Very Happy

Merci Cautex
et bon week end a toi et a tout le forum!



Répondre en citant
Message copies de fichier et dossiers sous windows 7 
Bonsoir a tous,
Bonsoir Cautex

En partant de ce principe est ce qu'il est possible de créer un code qui serait afficher les dossiers ou il a eu des modiffications :
comme la modiffications d'un fichier ou ajout d'un fichier dans ou des dossiers Etc...

Merci beaucoup
et bonne soirée a tous!



Répondre en citant
Message copies de fichier et dossiers sous windows 7 
Salut,

sa dépend de quel modification tu parle.

-> affichage des n fichiers plus récent ?
-> affichage des fichiers modifiés depuis tel date ?
-> affichage des fichiers datant de moins de n jours ?
-> affichage des fichiers qui on été modifié au moins une fois ?
-> .......




______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message copies de fichier et dossiers sous windows 7 
Bonjour Cautex,

Ben ça serait possible de faire ces deux chose la?
affichage des fichiers qui on été modifié au moins une fois
affichage des n fichiers plus récent

en faite je voudrais bien mis méttre sérieusement au batch de "maintenant"
bon je me servait beaucoup des fichiers batch mais dans les anciennes versions de windows
et je peut dir que j'était bon dans ce sens mais les anciens code batch non plus rien avoir avec ceux de ce forum par exemple
donc je voudrais bien commencer a faire des choses par moi méme
et ton code ma beaucoup plus je tente de voir si je pourais par moi faire un code de copies en plus simple biensur mais a partir du méme principe
et j'ajouterais l'affichages des dossiers modifier

Merci Cautex!



Répondre en citant
Message copies de fichier et dossiers sous windows 7 
ok dans ce cas n’hésite pas a demander si tu est bloqué.




______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Message copies de fichier et dossiers sous windows 7 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch