Listage recursive de sous répertoire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 102 fois - Téléchargée 28 fois

Contenu du snippet

juste un bout de vbs qui crée un fichier contenant les sous-répertoires présent dans le répertoire où il s'éxecute

Source / Exemple :


' listrep.vbs 
' cree un fichier listant les répertoires à partir du répertoire d'où est lancé

' Ouverture du fichier qui contiendra la liste
Set objFSO = CreateObject("Scripting.FileSystemObject")
strRepNomFichierLst = ".\repList.txt"
objFSO.CreateTextFile strRepNomFichierLst, True
Set objFicLst = objFSO.GetFile(strRepNomFichierLst)
Set objWriteLst = objFicLst.OpenAsTextStream(8)

' récup des sous-rep de la racine
Set objRepInit = objFSO.GetFolder(".")
objWriteLst.WriteLine(objRepInit.Name)
Set objSousRep = objRepInit.SubFolders
' lancement du parcours des sous-rep en récursifs
Call P_recurParcoursRep(objSousRep, objRepInit.Name)
MsgBox "terminé"
Wscript.Quit

' fonction de parcours de rep en récursif
Sub P_recurParcoursRep(l_objLstRep, l_branche)
	For Each objSousRep in l_objLstRep
		objWriteLst.WriteLine(l_branche & "\" & objSousRep.Name)
		Set objListSousRep = objSousRep.SubFolders
		Call P_recurParcoursRep(objListSousRep, l_branche & "\" & objSousRep.Name)
	Next
End Sub

Conclusion :


j'en avais besoin, je me suis dis que cela pouvais servir à d'autre.
sans doute le bout de code le plus C.. que je n'ai jamais écrit.

A voir également

Ajouter un commentaire

Commentaire

Messages postés
2
Date d'inscription
mardi 14 octobre 2003
Statut
Membre
Dernière intervention
30 mai 2006

Merci beaucoup :)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.