Bonjours je me demandais si il était possible d'afficher toute l'arborescence à partir d'un dossier.

au final avoir quelque chose comme ceci en affichage
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Repertoire 1
      répertoire A
              répertoire i
      répertoire B
répertoire 2
      répertoire C
          répertoire ii
      répertoire D
Je n'arrive qu'à lister les sous répertoire du répertoire du répertoire que je saisis et ça fini là.

mon code est le suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Set Dossiers = fso.GetFolder(demanderRepertoire)
Set rep = Dossiers.subFolders
For Each Rep in Rep
           strListe = strListe & Rep.Name & vbcrlf
Next
Le résultat qu'il retourne est tout à fait normal je le sais, mais comment faire pour afficher toute l'arborescence du dossier ?