afficher arborescence dossier

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:

---

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:

---

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 ?

Salut,

Il suffit de créer une fonction récursive qui liste tous les sous dossiers du dossier passé en paramètre.
ça doit ressembler à ça :

Code:

---

1 2 3 4 5 6 7

Sub ListeRepertoire(repertoire_parent) strListe = strListe & repertoire_parent.Name & vbcrlf For Each reperoire_enfant In repertoire_parent.SubFolders ListeRepertoire reperoire_enfant Next End Sub

---

Après si tu veux une incrémentation, à toi de gérer le nombre d'espaces (ou de tabulations) en fonction de la profondeur de ta fonction récursive.

Bonne chance

J'ai créer ma fonction récursive, mais il y a que le programme fait et je ne comprend pas pourquoi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Set fso = CreateObject("Scripting.FileSystemObject") afficherArborescence(fso.getFolder(maRacine)) wscript.quit function afficherArborescence(racine) wscript.echo repEnfant set repParent = racine.subFolders for each repEnfant in repParent afficherArborescence(repEnfant) next   end function

---

Pourquoi est-ce que la première chose qu'il affiche est rien ?

Pourquoi dans mon instruction wscript.echo quand je rajoute .name à repEnfant j'ai le message d'ereur object required: 'repEnfant' ?

Pour que seulements les nom de répertoires s'affiche je suis obligé d'écrire wscript.echo racine.name, mais si je fais ça il affiche le nom du répertoire que j'ai entrer en premier.

Je veux afficher seulement l'arborescence de mon répertoire racine et non pas la racine et l'arborescence.

Dans ce cas là, alors :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Set fso = CreateObject("Scripting.FileSystemObject") afficherArborescence(fso.getFolder(maRacine)) wscript.quit function afficherArborescence(racine) set repParent = racine.subFolders for each repEnfant in repParent wscript.echo repEnfant afficherArborescence(repEnfant) next end function

---

Effectivement, tu ne peux pas utiliser la valeur d'une variable avant de l'avoir initialisée

Merci :) tout fonctionne correctement. désolé si je pose des stupides.

Bonjour,

Je voudrais tester votre solution mais j'ai une erreur quand je l'execute :

Code:

---

Argument ou appel de procédure incorrect

---

J'ai copier mot pour mot les lignes mais je ne sais pas ou spécifier les paramètres pouvez-vous m'aidez ?

il faut remplir la variable maRacine.

faire un petit

maRacine = "c:\chemin_du_dossier_qui_va_bien"

la variable maRacine est une chaine de caractère et doit contenir le chemin d'un répertoire.

ça devrait fonctionner avec ça avant (par exemple) :

Code:

---

maRacine = "c:\windows"

---

ok, ça fonctionne bien maintenant.

je vous remercie !

J'aurais une autre question du même genre :

Comment on peut rechercher un sous-repertoire dans c par exemple ?