Discussion :

[hubald]

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 ?

[pitchalov]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hubald]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pitchalov]

Dans ce cas là, alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hubald]

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

[samuel539]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[spantemonium]

il faut remplir la variable maRacine.

faire un petit

maRacine = "c:\chemin_du_dossier_qui_va_bien"

[pitchalov]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

maRacine = "c:\windows"

[samuel539]

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 ?