Lister les fichiers contenues dans un dossier et ses sous-dossiers

Commenter

Contenu du snippet

À l'aide de DriveListBox, DirListBox et FileListBox, ce code affiche dans un debug tous les fichiers contenues dans le dossier sélectionné (En appuyant sur le bouton) et ses sous-dossiers

Source / Exemple : 


Private Sub Command1_Click()
    lireDossier Dir1.Path ' Appel de la commande pour lister les fichiers
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path ' Affiche le contenue du dossier sélectionné
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive ' Le dossier devient le lecteur sélectionné
End Sub
Private Function lireDossier(dossier As String)
    Dim dossierPrecedent As String
    Dim i As Integer
    Dim j As Integer
    
    dossierPrecedent = CStr(Dir1.Path) ' Sauvegarde le dossier précédent
    Dir1.Path = dossier ' Se place dans le dossier à lire
    For i = 0 To (Dir1.ListCount - 1) ' Pour chaque dossier présent
        File1.Path = Dir1.List(i) ' Place le path dans le FileList
        For j = 0 To (File1.ListCount - 1) ' Pour chaque fichier du FileList
            Debug.Print File1.List(j) ' L'affiche dans debug
        Next j
        lireDossier CStr(Dir1.List(i)) ' Affiche le contenue du dossier sélectionné
    Next i
    Dir1.Path = dossierPrecedent ' Se replace au dossier précédent
End Function

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.