copier donnee avec recuperation du nom du sous repertoire

Version imprimable

condition recuperai nom de dossier pr plusieur operation

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:

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?

01/11/2007, 15h33
popofpopof

recuperai le nom d'un dossier

j'ai un dossier que l'on appel "A" dans ce dossier on a plusieur sous dossier pour mon exemple on va dire 2 "LEPARC" et "FLEUR".

j'aimerai savoir comment faire pour "racine1" prenne la valeur C:\a\Operation\LEPARC puis apres C:\a\Operation\FLEUR....

qui peux m'aide?? vous comprennai??

racine = "C:\a\Operation\"

Set racine1 = fso.CreateFolder(racine & "\NONOPERATION\")

une boucle sur la collection subfolders ...

Code:

1
2
3
4
5
6
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder("C:\a\Operation\")
For Each oSousRep in oFolder.subfolders
    wscript.echo oSousRep.path
next

;)

j'ai essai mais je veux pas l'avoir le nom a l'écran mais qui rentre en compte pour la création de nouveau dossier

regarde ce que j'ai fait , tu en pence quoi?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder("C:\a\a\Operation\")
For Each oSousRep in oFolder.subfolders
    wscript.echo oSousRep.path
 
'création du =dossier de sauvegarde
 Dim racine
 Dim MonRep1
 Dim MonRep2
 Dim MonRep3
 Dim MonRep4
 
racine = "C:\a\Operation\"
 
Set racine1 = fso.CreateFolder(racine & "NON du sous rep")
 
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")
 
next

01/11/2007, 16h12
SfJ5Rpw8
l'affichage à l'écran est effectué par la ligne :
Code:

1 2 wscript.echo oSousRep.path
supprime cette ligne... ;)

déplace tes déclarations de variables tout en haut de ton code ( c'est plus "propre..)
Code:

1 2 3 4 5 Dim racine1 Dim MonRep1 Dim MonRep2 ...
supprime la variable "racine" et sont affectation ( set racine...) devenu inutile...

remplace la ligne

Code:

Set racine1 = fso.CreateFolder(racine & "NON du sous rep")

par

Code:

racine1 = oSousRep.path

;)

ok sa avance mais c pas encore sa lol presque...

je veux prendre le nom des sous repertoire qui sont dans C:\a\a\Operation\ pour crée un nouveau dossier avec le nom des sous repertoire mais la dans un dossier C:\a\Operation\

donc j'en suis la
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim MonRep1 Dim MonRep2 Dim MonRep3 Dim MonRep4 Set FSO = CreateObject("Scripting.FileSystemObject") Set oFolder = fso.GetFolder("C:\a\a\Operation\") For Each oSousRep in oFolder.subfolders racine1 = "C:\a\Operation\" & "non du sous repertoire que l'on a trouve plus haut" 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") next
quand on a rélise cette création de dossier on recommence tout pour prendre la valeur du deuxiéme sous repertoire qui est dans C:\a\a\Operation\

tu comprend?? :cry:

01/11/2007, 16h32
SfJ5Rpw8

j'ai du mal à te suivre ...

remplace peu-être

"non du sous repertoire que l'on a trouve plus haut"

par oSousRep.name

;)

ok merci sa marche super
j'arrive dans la derniere ligne droit

je souhaite copier le contenu du dossier C:\a\a\Operation\NOM OPERATION vers C:\a\Operation\NOM OPERATION ( bien sur dans chaque sous sous dossier exemple PLAN DE VENTE.....

j'ai fait sa mais a la fin sa plante c quoi mon probleme?

Code:

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
31
32
33
 Dim MonRep1
 Dim MonRep2
 Dim MonRep3
 Dim MonRep4
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder("C:\a\a\Operation\")
For Each oSousRep in oFolder.subfolders
 
 
Set racine1 = fso.CreateFolder("C:\a\Operation\" & oSousRep.name)
 
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 de C:\a\a\Operation\NOM OPERATION vers C:\a\Operation\NOM OPERATION
Const OverWriteFiles = TRUE 
 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
 
 
 
objFSO.CopyFolder C:\a\Operation\" & oSousRep.name & "\DAV", racine1 & "\DAV" , OverWriteFiles
objFSO.CopyFolder C:\a\Operation\" & oSousRep.name & "\PLAN DE VENTE", racine1 & "\PLAN DE VENTE" , OverWriteFiles
objFSO.CopyFolder C:\a\Operation\" & oSousRep.name & "\PLAQUETTE", racine1 & "\PLAQUETTE" , OverWriteFiles
objFSO.CopyFolder C:\a\Operation\" & oSousRep.name & "\NOTICES", racine1 & "\NOTICES" , OverWriteFiles
 
 
 
next

01/11/2007, 17h19
SfJ5Rpw8

eee.... je vais pas continuer à t'écrire ton code ligne à ligne ...:aie:

merci de lire : La FAQ VBScript

Tutoriel: Introduction au langage VBScript, par Serge Tahé

essai de comprendre ce que tu fais... ;)

tu as tout ce qui faut dans cette discussion ;)
01/11/2007, 17h21
popofpopof

stp aide moi je commence juste en vbs et j'ai fini apres plus de question explique moi oui sa plante.
01/11/2007, 17h35
SfJ5Rpw8

Citation:

Envoyé par popofpopof

stp aide moi je commence juste en vbs et j'ai fini apres plus de question explique moi oui sa plante.

c'est plutôt à toi de me dire sur qu'elle ligne tu as une erreur ..!
01/11/2007, 17h39
popofpopof

ligne 26 caract 21 erreur: Instruction attendue

ci je compte les ligne on arrive la

Code:

objFSO.CopyFolder C:\a\Operation\" & oSousRep.name & "\PLAN DE VENTE", racine1 & "\PLAN DE VENTE" , OverWriteFiles

et je ne vois pas ou il y a mon erreur??

merci de te aide

ps vive le 31 lol
01/11/2007, 17h45
SfJ5Rpw8

Il y as quoi ... ligne 26 caractére 21 ..? ..

à tu lu la :faq: ...

télécharger l'aide : Où trouver l'aide en ligne pour VBScript ?

la fonction CreateFolder elle renvoi quoi ..?

....

j'ai essai sa

Code:

1
2
3
4
5
6
7
8
9
Const OverWriteFiles = TRUE 
 
racine1 = "C:\a\Operation\LEPARC"
 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
objFSO.CopyFolder "C:\a\a\Operation\LEPARC" & "\DAV", racine1 & "\DAV" , OverWriteFiles
objFSO.CopyFolder "C:\a\a\Operation\LEPARC" & "\PLAN DE VENTE", racine1 & "\PLAN DE VENTE" , OverWriteFiles
objFSO.CopyFolder "C:\a\a\Operation\LEPARC" & "\PLAQUETTE", racine1 & "\PLAQUETTE" , OverWriteFiles
objFSO.CopyFolder "C:\a\a\Operation\LEPARC" & "\NOTICES", racine1 & "\NOTICES" , OverWriteFiles

et sa marche donc mon probleme est de remplace "C:\a\a\Operation\LEPARC"

j'ai essai sa mais sa plante

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder("C:\a\a\Operation\")
For Each oSousRep in oFolder.subfolders
 
Const OverWriteFiles = TRUE 
origine = oFolder & oSousRep.name
racine1 = "C:\a\Operation\" & oSousRep.name
 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
objFSO.CopyFolder origine & "\DAV", racine1 & "\DAV" , OverWriteFiles
objFSO.CopyFolder origine & "\PLAN DE VENTE", racine1 & "\PLAN DE VENTE" , OverWriteFiles
objFSO.CopyFolder origine & "\PLAQUETTE", racine1 & "\PLAQUETTE" , OverWriteFiles
objFSO.CopyFolder origine & "\NOTICES", racine1 & "\NOTICES" , OverWriteFiles
next

Pk ? je comprend pas et je trouve pas d'expliclation

copier donnee avec recuperation du nom du sous repertoire

je souhaite copier des donnée d'un dossier LEPARC dans un autre dossier qui ce trouve ailleur mais en reprenant le nom de ce repertoire
j'ai reusie dans mon code a crée le dossier (vide) avec le nom de chaque operation (LEPARC......) et leur sous repertoire (DAV, PLAN DE VENTE...) Donc il me reste juste a réalisé la copier du dossier d'origine vers le nouveau dossier crée j'ai essai ce code mais sa marche pas qui peux m'aide??
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Set FSO = CreateObject("Scripting.FileSystemObject") Set oFolder = fso.GetFolder("C:\a\a\Operation\") For Each oSousRep in oFolder.subfolders Const OverWriteFiles = TRUE origine = oFolder & oSousRep.name racine1 = "C:\a\Operation\" & oSousRep.name Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFolder origine & "\DAV", racine1 & "\DAV" , OverWriteFiles objFSO.CopyFolder origine & "\PLAN DE VENTE", racine1 & "\PLAN DE VENTE" , OverWriteFiles objFSO.CopyFolder origine & "\PLAQUETTE", racine1 & "\PLAQUETTE" , OverWriteFiles objFSO.CopyFolder origine & "\NOTICES", racine1 & "\NOTICES" , OverWriteFiles next

03/11/2007, 09h33
SfJ5Rpw8
c'est quoi qui "marche pas ..." ...?

bon ce qui me saute au yeux.... :

un seul objet FileSystem... te suffit supprime la ligne :
Code:

1 2 Set objFSO = CreateObject("Scripting.FileSystemObject")
et remplace les objFSO.... par FSO.
(ce serai plus "joli" si tu renommai ensuite tout tes FSO par oFSO par exemple...)
Code:

1 2 Set oFolder = fso.GetFolder("C:\a\a\Operation\")
cette ligne te permet d'affecter un objet folder à ta variable.. oFolder..(voir aide VBSCript pour l'objet Folder ) ..
ensuite tu effectue une opération de concaténation de chaine :

Code:

origine = oFolder & oSousRep.name

et tu sur que la propriété par défaut de ton oFolder et bien celle que tu veux utiliser ...? précise la plutôt ... en mettant oFolder.Name ( où autre .... je pense pas que cela soit la propriété désirée..)

vérifie ensuite si tu donne bien les bons paramétres à ta fonction de copy en les affichant...

Code:

WScript.Echo "Copie de : " & origine & "\DAV" &" Vers " & racine1 & "\DAV"

;)

j'ai reusi sa marche regarde mon code

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
origine = "C:\a\a\Operation\"
destination = "C:\a\Operation\"
 
 
'del dossier sauvegarde
Dim oFSO,oFld
Set oFSO = CreateObject("Scripting.FileSystemObject")
set oFld = oFSO.GetFolder(destination)
'Parcours et efface tous les sous répertoires
For Each oSubFld in oFld.SubFolders
  oSubFld.Delete false
Next
'Parcours et efface tous les fichiers directement sous le répertoire
For Each oFile in oFld.Files
  oFile.Delete False
Next
 
'-------------------------- création des dossier vide destination 
 
 Dim MonRep1
 Dim MonRep2
 Dim MonRep3
 Dim MonRep4
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(origine)
For Each oSousRep in oFolder.subfolders
 
Set racine1 = fso.CreateFolder(destination & oSousRep.name)
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")
next
 
'-------------------------- copier d'origine vers destination
 
Set aoFSO = CreateObject("Scripting.FileSystemObject")
Set aoFolder = aofso.GetFolder(origine)
For Each aoSousRep in aoFolder.subfolders
 
origine2 = origine & aoSousRep.name
destination2 = destination & aoSousRep.name
 
dim aoFSO
aoFSO.CopyFolder origine2 & "\DAV", destination2 & "\DAV" 
aoFSO.CopyFolder origine2 & "\PLAN DE VENTE", destination2 & "\PLAN DE VENTE"
aoFSO.CopyFolder origine2 & "\PLAQUETTE", destination2 & "\PLAQUETTE"
aoFSO.CopyFolder origine2 & "\NOTICES", destination2 & "\NOTICES"
next

par contre une derniere question mais je ne sais pas ci cela est possible
je souhaite que les dossier et les données qui sont dans 'destination" son pour l'utilisateur (ces donnée seront sur un serveur) les fichier doivent etre en ouverture (utilisateur peux ouvir par exemple un fichier pdf et l'imprimer) il ne peux pas le copier ni le supprimer ou le modifier
aurai tu une idée??