Lister des dossiersRésolu

Question

Bonsoirs j'aimerais savoir comment lister les dossiers et sous dossier d'un repertoire sans utiliser de dir list box et sans utiliser de fso.
Attention lister les fichiers ne m'interresse pas.
Merci

cs_Jack · Accepted Answer

Salut
Tu aurais pu chercher un peu quand m&#234;me, cette question revient souvent.
Utilise la commande DIR :
Dim Temp As String
Temp = Dir("C:\mon r&#233;pertoire\*.*", vbDirectory)
Do While Temp <> ""
   Debug.Print Temp
   Temp = Dir   ' au suivant
Loop

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

ciberrique · Answer

Je connais cette m&#233;thode, mais sa affiche aussi les fichiers...

D'ailleur pour cette m&#233;thode est ce que 
Do While Len(Temp) > 0
est plus rapide que
Do While Temp <> ""
je parle bien sur en th&#233;orie.

Merci.

ciberrique · Answer

Voici donc le seul code que j'ai r&#233;ussi &#224; mettre au point et qui n'est pas trop long &#224; la d&#233;termination des dossiers.

Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long

Public Sub ListeDossier()

Dim tableau() As String, Temp As String
Dim i As Long 

ReDim tableau(0)
i = 0
Temp = Dir("C:", vbDirectory)
Do While Len(Temp) > 0
    Temp = Dir
    If PathIsDirectory("C:" & Temp) = 16 Then
        tableau(i) = Temp
        i = i + 1
        ReDim Preserve tableau(i)
    End If
Loop

End Sub

cs_Jack · Answer

Salut Oui, c'est une solution que je ne connaissais pas. Attention dans ton code : Aussitôt après le Do While, tu fais à nouveau un Temp = Dir --> Tu perds donc le contenu du premier Temp. En fait, tu ne t'en apperçois pas car les deux premières requètes renvoient .. et . (2 points et 1 point) Par contre, ça va buguer à la fin ! Alors mets ton Temp = Dir avant le Loop et ajoute après le Do While Do While ... If Temp <> ".." And Temp <> "." Then Le code actuel ... (sans le Temp = Dir du début) End If Temp = Dir Loop Concernant le Len(Temp), je ne pense pas que ce soit plus rapide puisque tu ajoutes encore une nouveau évaluation à faire faire au code, donc ça ralentira forcément (à mon avis) Vala Jack, MVP VB NB : Je ne répondrai pas aux messages privés Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

ciberrique · Answer

Merci Jack... R&#233;ponse accept&#233;.

Lister des dossiers

5 réponses

Discussions similaires