Bonjour à tous,
Le code vb de Luc1an0 m'a été très utile. Les 1300 répertoires ont désormais le sous-répertoire voulu (ref. http://www.developpez.net/forums/d10...s/#post6377905.
Maintenant j'essaie de modifier ce code afin d'ajouter un sous-répertoire dans le premier sous-répertoire créer. Chose qui me semblait assez facile avec le code que j'avais mais certains répertoires ont été créés après que j'aie exécuté ce code vb donc ils ne contiennent pas le premier sous-répertoire.
ex:
K:\rep1\sousRep
K:\rep2\sousRep
K:\rep3\
K:\rep4\sousRep
K:\rep5\
K:\rep6\sousRep
Avec le code vb ci-dessus, lorsqu'il rencontre le répertoire qui ne contient pas le sous répertoire, il plante et affiche un message d'erreur puisqu'il ne trouve pas le sous-rep dans ce répertoire. Logique
J'ai testé plusieurs modifications mais sans succès.
Mais il s'arrête directement au premier répertoire en affichant un problème à la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 strMonSousDossier = "\sousRep\sousRep2" strMonSousDossier2 = "\sousRep" Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "K:\" If oFSO.FolderExists(stRep) Then For each oFld in oFSO.GetFolder(stRep).SubFolders If Not oFSO.FolderExists(strMonSousDossier2) Then Wscript.Echo "Création du dossier : " & oFld.Path & strMonSousDossier2 oFSO.CreateFolder(oFld.Path & strMonSousDossier2) End If Wscript.Echo "Création du dossier : " & oFld.Path & strMonSousDossier oFSO.CreateFolder(oFld.Path & strMonSousDossier) Next End Ifalors qu'il ne devrait pas entrer dans ce IF puisque strMonSousDossier2 existe.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Wscript.Echo "Création du dossier : " & oFld.Path & strMonSousDossier2 oFSO.CreateFolder(oFld.Path & strMonSousDossier2)
L'idée est que si le strMonSousDossier2 existe de créer que strMonSousDossier et s'il n'existe pas de créer les deux. J'emploi sûrement mal le If Not.
Merci de votre aide.
Partager