Discussion :

[Pakou]

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 :

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 If

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
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.

[iso81]

L'erreur est comme tu le dis bien est dans la condition (ligne 7):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
...
...
...
...
...
...
        If Not oFSO.FolderExists(oFld.Path & strMonSousDossier2) Then
...

[Pakou]

Bonjour iso81,

Un grand merci,
j'ai pu créer mes sous-répertoires avec ta correction.

Pakou