Bonjour , j'essaie de faire un Treeview pour voir les dossier , et les sous dossier sous la forme :

+ C:\ ( on clique sur le + et on a : )
......+ Dossier1
........+ Dossier1.1
......+Dossier2 ( apres on peut cliquer sur le dossier 2 pour voir les sous dossier etc...)

( les point c'est des espaces c'est juste car quand je poste ça prends pas l'EspacEEE

j'arrive a afficher les dossier du C:\ mais ensuite pas moyen d'afficher les sous dossier

voila mon code pour le moment :

Imports System.IO

Public Class Form1

    Private Sub SplitContainer1_Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel1.Paint

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TreeView1.Nodes.Add("D:\")

        Explorer(TreeView1.Nodes.Item(0))
        TreeView1.Nodes.Add("C:\")

        Explorer(TreeView1.Nodes.Item(1))
    End Sub

    Private Sub Explorer(ByVal node As TreeNode)
        Try
            Dim s As String
            node.Nodes.Clear()
            For Each s In Directory.GetDirectories(node.FullPath)
                node.Nodes.Add(Path.GetFileName(s))
            Next
        Catch
        End Try
    End Sub



    Private Sub TreeView1AfterExpand(ByVal sender As Object, ByVal e As TreeViewEventArgs)
        Dim tn As TreeNode
        For Each tn In e.Node.Nodes
            Explorer(tn)
        Next
    End Sub



End Class

merci pour votre aide

EDIT j'ai reusi :

Imports System.IO

Public Class Form1

    Private Sub SplitContainer1_Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel1.Paint

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TreeView1.Nodes.Add("C:\")
        Explor(TreeView1.Nodes.Item(0))
        TreeView1.Nodes.Add("D:\")
        Explor(TreeView1.Nodes.Item(1))
        TreeView1.Nodes.Add("E:\")
        Explor(TreeView1.Nodes.Item(2))

    End Sub


    Private Sub Explor(ByVal Node As TreeNode)
        Try
            Node.Nodes.Clear()
            Dim s As String
            For Each s In Directory.GetDirectories(Node.FullPath)
                Node.Nodes.Add(Path.GetFileName(s))
            Next s

        Catch
        End Try
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

    End Sub

    Private Sub TreeView1_AfterExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterExpand
        Dim z As TreeNode
        For Each z In e.Node.Nodes
            Explor(z)
        Next z
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub
End Class

maintenant j'aimerais que lorsque je clique sur le dossier , tout les fichiers du dossier selectionnez s'ajoute dans une list view , comment c'est possible?

merci

si tu veux afficher les fichiers dans un listview,
importe System.IO et
rajoute cet evenement :

Private Sub TreeView1_AfterSelect(ByVal sender As Object, _ 
& ByVal e As System.Windows.Forms.TreeViewEventArgs)
For Each file In Directory.GetFiles(e.Node.FullPath)
ListView1.Items.Add(file)
Next