Créer un sous-répertoire dans plusieurs répertoires [Résolu]

[Pakou]

Bonjour à tous,

En espérant écrire au bon endroit,
je vais essayer de détailler mieux que l'intitulé ce que je voudrais faire.

J'ai sur mon disque k: plusieurs répertoires (1300 environs) dans lesquels je veux créer un sous-répertoire qui porterait le même nom.

En Windows, je sais bien créer un sous-répertoire dans un répertoire. Mais vous comprendrez que de le faire 1300 fois, c'est long et risque possible dans oublier.

En DOS également, je sais le faire mais que pour un seul répertoire à la fois.

Est-il possible, existe-t-il un commande que je pourrais faire pour créer le sous-répertoire (ex sous-rep) dans tous les répertoires de mon disque k: ??

Merci de votre aide.
Pak

[Guardian]

Sous DOS (façon de parler, disons en ligne de commande avec un batch) tu peux lister tes répertoire et parcourir la liste pour créer dans chaque répertoire un sous répertoire.
Tu trouveras les informations utiles dans la FAQ Batch http://windows.developpez.com/faq/batch/

[Luc1an0]

Voilà !

Code vb :

1
2
3
4
5
6
7
8
9
strMonSousDossier = "\NomDuDossier"
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\dev"
If oFSO.FolderExists(stRep) Then
 For each oFld in  oFSO.GetFolder(stRep).SubFolders
   Wscript.Echo "Création du dossier : " & oFld.Path	& strMonSousDossier
			oFSO.CreateFolder(oFld.Path	& strMonSousDossier)
 Next
End If

La première variable (strMonSousDossier), tu renseignes le nom du sous dossier à créer en laissant bien le "\"
La seconde utile (stRep), tu renseignes le répertoire de base, donc ici : la lettre de ton dossier !
Tu copies/colles le code dans un fichier texte, avec une extension en ".vbs", tu doubles clic, et c'est bon !

[Pakou]

re Bonjour,

Merci beaucoup Luc1an0, je ne connais pas assez le vbs pour avoir pensé à l'utiliser pour ça, mais seulement avec les macros.

Me reste plus qu'à cliquer sur ok 1300 fois

Merci aussi à ArielD j'avais testé bcp de formules mais rien fonctionnait.

Pak

[Luc1an0]

Salut,

Désolé, mais tu peux enlever le "Wscript.Echo" !

Cela vient du fait que mon interpréteur par défaut est "cscript.exe" et non "vbscript.exe" ... Pour l'un, le StdOut est la console (Cscript pour la console) et pour l'autre c'est le StdOut sont des MsgBox ...

Soit tu enlèves le WScript.Echo ou depuis une console "cscript.exe le_nom_du_script.vbs"

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

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.