Listage recursive de sous répertoire

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_defrance)