VB.net lister tout dossiers/fichiers d'un DD

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call LireRep("C:\")
    End Sub

    Private Sub LireRep(ByVal Repertoire As String)
        Dim Chemin As String
        Dim i As Int16
        Dim Exclure() As String = {"$", "WINDOWS", "SYSTEM", "PROGRAM", "USER", "DRIVER", "TOOLS", "BOOT"}
        Dim SousRep As String() = Directory.GetDirectories(Repertoire)

        For Each sRep As String In SousRep
            Chemin = Path.GetFileName(sRep).ToUpper
            'Debug.Print(Chemin)
            For i = 0 To UBound(Exclure)
                If Microsoft.VisualBasic.Left(Chemin, Len(Exclure(i))) = Exclure(i) Then Exit For
            Next
            If i > UBound(Exclure) Then
                Try
                    Dim FichierS As String() = Directory.GetFiles(sRep)
                    For Each Fi As String In FichierS
                        ListBox1.Items.Add(Fi)
                    Next
                    If sRep.Length > 0 Then
                        LireRep(sRep)
                    End If
                Catch ex As Exception
                    'Debug.Print(Repertoire)
                End Try
            End If
        Next
    End Sub

        Try
            Dim Repertoires As String() = Directory.GetDirectories("C:\")
            For Each Rep As String In Repertoires
                Me.ListBox1.Items.Add(Path.GetFileName(Rep))
            Next
        Catch ex As Exception
            Stop
        End Try

Dim FichS As String() = Directory.GetFiles(Rep)