Créer un sous-répertoire dans un sous-répertoire de plusieurs répertoires
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.
Code:
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 If |
Mais il s'arrête directement au premier répertoire en affichant un problème à la ligne
Code:
1
2
| Wscript.Echo "Création du dossier : " & oFld.Path & strMonSousDossier2
oFSO.CreateFolder(oFld.Path & strMonSousDossier2) |
alors qu'il ne devrait pas entrer dans ce IF puisque strMonSousDossier2 existe.
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.
