bonjour

j'ai plusieur probleme mon 1er : http://www.developpez.net/forums/sho...d.php?t=435461

Mon deuxiéme probleme: (plus complique)
j'ai un dossier Operation qui contien plusieur dossier et sous dossier
pour chaque operation nous avons les même sous dossier dans l'arborésence c'est que le nom de l'operation qui change exemple :
LEPARC\ADMINISTRATIFS\COMMERCIALISATION\LANCEMENT
LARC\ADMINISTRATIFS\COMMERCIALISATION\LANCEMENT
......

je souhaite réalisé un copier de certain sous dossier dans un dossier que l'on créra (le nom de operation LEPARC ou LARC...) ou dedans on métra tout les dossier copier qui appartienne a chaque opération.
exemple
pour LEPARC on aura comme sous dossier DAV et PLAQUETTE avec tout les ficher qui contienne
Idem pour LARC mais avec les fichier de l'opération.

j'ai créé un Script qui marche mais que pour une opération je ne sais pas comment crée la boucle ( pour chaque operation faire sa..) et qu'il me prenne le nom du dossier de l'opération pour chaque création de dossier

voila mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
'création du =dossier de sauvegarde
 Dim racine
 Dim MonRep1
 Dim MonRep2
 Dim MonRep3
 Dim MonRep4
 
racine = "C:\a\Operation\"
 
 
Set FSO = CreateObject("Scripting.FileSystemObject") 
 
 
Set racine1 = fso.CreateFolder(racine & "\NONOPERATION\")
 
Set MonRep1 = fso.CreateFolder(racine1 & "\DAV")
Set MonRep2 = fso.CreateFolder(racine1 & "\PLAN DE VENTE")
Set MonRep3 = fso.CreateFolder(racine1 & "\PLAQUETTE")
Set MonRep4 = fso.CreateFolder(racine1 & "\NOTICES")
 
 
'copier du contenue du dossier dans un autre
 
Const OverWriteFiles = TRUE 
 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
objFSO.CopyFolder "C:\a\a\LEPARC" & "\DAV", racine1 & "\DAV" , OverWriteFiles
objFSO.CopyFolder "C:\a\LEPARC" & "\PLAN DE VENTE", racine1 & "\PLAN DE VENTE" , OverWriteFiles
objFSO.CopyFolder "C:\a\LEPARC" & "\PLAQUETTE", racine1 & "\PLAQUETTE" , OverWriteFiles
objFSO.CopyFolder "C:\a\LEPARC" & "\NOTICES", racine1 & "\NOTICES" , OverWriteFiles
qui peux m'aide?