Comment avoir la liste de tous les dossiers contenus dans un dossier tout simplement?

Commenter

Contenu du snippet

D1 est une dirlistbox
Chercher est un commandbutton
Et L1 est une listbox

Franchement plus simple à comprendre, il y a pas.
Les adresses des dossiers se trouvent dans la liste est dans l'ordre.

En fait, c'est facile à comprendre on recherche tous les fichiers dans un dossier, on les ajoute juste après l'index de lecture de la listbox, et en faisant index par index à force de descendre dans l'index de lecture,(listcount s'agrandi), on arrive à ne trouver plus aucun dossier dans tous les dossiers trouvés, donc on les a tous.

Source / Exemple : 


Private Sub Chercher_Click()
    Chercher.Enabled = False
    L1.Clear
    Ad = "c:\" 'Adresse ou l'on effectue la recherche
    D1.Path = Ad
    D1.Refresh
    L1.AddItem Ad
    Do While N < L1.ListCount
        DoEvents
        D1.Path = L1.List(N)
        D1.Refresh
        For v = D1.ListCount - 1 To 0 Step -1
            DoEvents
            If Mid(D1.List(v), Len(D1.List(v)), 1) <> "\" Then Ajt = "\" Else: Ajt = ""
            L1.AddItem D1.List(v) + Ajt, N + 1
        Next v
        N = N + 1
    Loop
    Chercher.Enabled = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
    End
End Sub

Conclusion :


C'est la base de la recherche de fichier pour tout ce qui est explorateur de dossier, ou recherche de fichier spécifique dans un dossier avec ces sous-dossier

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (gandalfkhorne)