Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2847 connectés 

  FORUM HardWare.fr
  Windows & Software
  Win NT/2K/XP

  copier fichiers dans plusieurs dossiers ? Question piège !!!!

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

copier fichiers dans plusieurs dossiers ? Question piège !!!!

n°1706103
fatjimo
SMD
Posté le 04-09-2004 à 17:04:28  profilanswer
 

salut à tous,
 
je souhaite copier plusieurs petits fichiers ( 4) dans plusieurs dossiers en m^me temps !
je voudrai pas avoir a faire copier/coller des dizaines de fois a la suite
comment faire ?
http://img85.exs.cx/img85/9866/Snap5.jpg


Message édité par fatjimo le 04-09-2004 à 19:23:55
mood
Publicité
Posté le 04-09-2004 à 17:04:28  profilanswer
 

n°1706237
cvb
Posté le 04-09-2004 à 18:30:00  profilanswer
 

un batch !

n°1706281
fatjimo
SMD
Posté le 04-09-2004 à 18:58:24  profilanswer
 

un batch ?

n°1706286
fatjimo
SMD
Posté le 04-09-2004 à 19:00:38  profilanswer
 

ok laisses tomber je vais passr plus de temps a creer le dat qu'a faire copier coller dans mes 500 fichiers !
 
Une autre idée ?

n°1706343
fatjimo
SMD
Posté le 04-09-2004 à 19:23:34  profilanswer
 

Alors la question piege !!!! Personne ??

n°1706888
fatjimo
SMD
Posté le 05-09-2004 à 12:22:57  profilanswer
 

up

n°1709106
fatjimo
SMD
Posté le 06-09-2004 à 23:55:40  profilanswer
 

up

n°1709108
freds45
Posté le 06-09-2004 à 23:56:43  profilanswer
 

fatjimo a écrit :

ok laisses tomber je vais passr plus de temps a creer le dat qu'a faire copier coller dans mes 500 fichiers !
 
Une autre idée ?


 
Ben en batch, c'est pas compliqué :p
En 2 lignes ca tient :p

n°1709196
Requin
Posté le 07-09-2004 à 07:23:46  profilanswer
 

Un script...
 
Perso je préfère utiliser File System Object (FSO) qu'un batch, la vitesse d'exécution est plus rapide.
 
 
Voici un script que j'avais fait pour intialiser les dossiers des élèves (nommés 01, 02, ...) avec le contenu du dossier du prof (nommé "Source" ) d'une salle de cours informatique, il est un peu particulier car il créé la structure sous "My Documents", mais donne une idée sur comment s'y prendre :
 

' Efface les fichiers dans les répértoires destinations et  
' copie les fichiers situés dans Source dans les répertoires
' destinations
On Error Resume Next
 
' Défini quelques variables
strSourceDir = "Source"
aryDestDirs  = Array(                                                          _
                     "01"                                                    , _
                     "02"                                                    , _
                     "03"                                                    , _
                     "04"                                                    , _
                     "05"                                                    , _
                     "06"                                                    , _
                     "07"                                                    , _
                     "08"                                                    , _
                     "09"                                                    , _
                     "10"                                                    , _
                     "11"                                                    , _
                     "12"                                                      _
                    )
 
' Affiche un message
MsgBox "Les répertoires vont être initialisés"
 
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objCurrentFolder = objFSO.GetFolder("." )
' détermine la longueur du chemin
intLength = Len(objCurrentFolder.Path) - Len(objCurrentFolder.Name)
' extrait le chemin de base
strBasePath = Left(objCurrentFolder.Path , intLength)
                     
' Efface les fichiers dans les répertoires de destination
For i = LBound(aryDestDirs) To Ubound(aryDestDirs)
   Set objAuxFolder = objFSO.GetFolder(strBasePath & aryDestDirs(i))
   ' Boucle sur les sous répertoires
   For Each Item In objAuxFolder.SubFolders
      objFSO.DeleteFile Item.Path & "\*.*", True
      ' Traite le cas des dossiers My Picture et My Music
      strName = Trim(LCase(CStr(Item.Name)))
      If InStr(strName, "my picture" ) = 0 AND _
         InStr(strName, "my music" ) = 0 Then
         objFSO.DeleteFolder Item.Path, True
      Else
         Set objMyFolder = objFSO.GetFolder(Item.Path)
         For Each MySF In objMyFolder.SubFolders
            objFSO.DeleteFolder MySF.Path, True
         Next
         Set objMyFolder = Nothing
      End If
   Next
   objFSO.DeleteFile objAuxFolder.Path & "\*.*", True
   Set objAuxFolder = Nothing
Next
 
' Copie les fichiers du répertoire source vers la destination
For i = LBound(aryDestDirs) To Ubound(aryDestDirs)
   objFSO.CopyFolder strBasePath & "Source", strBasePath & aryDestDirs(i), True
Next
 
' Efface les fichiers init.vbs dans les répertoires de destination
For i = LBound(aryDestDirs) To Ubound(aryDestDirs)
   Set objAuxFolder = objFSO.GetFolder(strBasePath & aryDestDirs(i))
   objFSO.DeleteFile objAuxFolder.Path & "\init.vbs", True
   objFSO.DeleteFile objAuxFolder.Path & "\delete.vbs", True
   Set objAuxFolder = Nothing
Next
 
' Libère la mémoire
Set objCurrentFolder = Nothing
Set objFSO = Nothing
 
' Affiche un message de confirmation
MsgBOX "Les dossiers ont été initialisés avec le contenu du dossier source"


n°1712924
fatjimo
SMD
Posté le 09-09-2004 à 18:57:30  profilanswer
 

Ben en batch, c'est pas compliqué  
En 2 lignes ca tient  
 
 
en 2 lignes ??????

mood
Publicité
Posté le 09-09-2004 à 18:57:30  profilanswer
 

n°1712935
wolfflyter
Posté le 09-09-2004 à 19:04:54  profilanswer
 

X-copy 2000 permet cette opération et bien plus encore
a+

n°1712995
cvb
Posté le 09-09-2004 à 19:48:01  profilanswer
 

fatjimo a écrit :

Ben en batch, c'est pas compliqué  
En 2 lignes ca tient  
 
 
en 2 lignes ??????


 
je dis mieux ! en une ligne  ! :kaola:  
 

Code :
  1. filecopy [source] [destination]

 
 
et sa fonctionne trés bien ! depuis le temps que tu demandes tu auras déjà copier tous tes fichiers !  [:ddr555]

n°1713019
freds45
Posté le 09-09-2004 à 20:06:58  profilanswer
 

fatjimo a écrit :

Ben en batch, c'est pas compliqué  
En 2 lignes ca tient  
 
 
en 2 lignes ??????


 
Ben oui...
un truc du genre

FOR %rep IN (*) DO copy fichier1 fichier2 %rep


 
 
à voir hein, écrit à l'arrache :whistle: !
Mais ca doit marcher;)


---------------
Filmstory : gardez trace des films que vous avez vu ! :D

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Win NT/2K/XP

  copier fichiers dans plusieurs dossiers ? Question piège !!!!

 

Sujets relatifs
Gravure fichiers image PAS iso/cue/bincopier coller impossible avec acrobat
soft pour découper un fichier de plusieurs Go pour le mettre sur CDs ?Transformation fichiers GIF
Mise à jour automatique fichiers modifiés sur réseauLenteur et déconnexion pendant transfert de gros fichiers en local
message persistant de protection de fichiers au demarrageQuestion sur offre 9 telecom et ses modems
sécurisation win2000 (nouvelle question: voir fin)aspirer les fichiers vidéo d'un site
Plus de sujets relatifs à : copier fichiers dans plusieurs dossiers ? Question piège !!!!


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR