La list de sub directories

Question

Salut
J'ai écrit le code suivant 

Dim path As String
Dim namedirectory As String
path = "E:"
namedirectory = Dir$(path, vbDirectory)
While namedirectory <> " "
 If (GetAttr(path & namedirectory) And vbDirectory =vbDirectory Then
     namedirectory = Dir$(path, vbDirectory)
   namedirectory = Dir$(path & namedirectory,vbDirectory)
 'le problem namedirectory ne change pas qui crée une  loop infinie
End If
  Wend

Le problem est qu'après avoir trouvé le 1er directory dans
E:\ je voudrais savoir le prochain sous directory  

merci

ucfoutu · Answer

Bonjour,

Tu vois (plus haut sur cette page) un onglet disant "Trouver un code source" ?
Je viens de saisir liste repertoires  dans la 1ère zone éditable, codes dans la seconde, puis j'ai cliqué sur rechercher.
=>> j'y ai vu ton bonheur ===>> Merci de faire la même chose, s'il te plait.  

____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Renfield · Answer

Dir ne permet en effet pas la recursivité

Renfield - Admin CodeS-SourceS - MVP Visual Basic

ucfoutu · Answer

Bonsoir, renfield,
Il peut toutefois la permettre , cette récursivité, en gérant dans une fonction résursive (enfin... presque... disons qu'elle se rappelle elle-même, sans renvoyer de valeur) ...
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

La list de sub directories

3 réponses

Votre réponse

Discussions similaires