Treeview

Résolu
dartagnan43 Messages postés 45 Date d'inscription samedi 31 mai 2008 Statut Membre Dernière intervention 26 février 2015 - 21 sept. 2014 à 17:12
CGSI3 Messages postés 416 Date d'inscription vendredi 22 février 2008 Statut Membre Dernière intervention 7 janvier 2018 - 4 oct. 2014 à 14:33
Bonjour,
Je cherche a afficher le contenu d'un répertoire par exemple c:\ dans un treeview
Ce treeview je souhaite qu'il affiche tous les dossier et fichiers sous-jacent en cliquant sur le noeud dossier
Mon code affiche les dossiers et fichiers mais cliquable sur le noeud principal
Imports System.IO

Public Class Form1
Const _RepertoireALister As String = "c:"
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TreeView1.TopNode = TreeView1.Nodes.Add(_RepertoireALister, _RepertoireALister)
For Each _Dossier As String In Directory.GetDirectories(_RepertoireALister)
TreeView1.TopNode.Nodes.Add(_Dossier, Path.GetFileName(_Dossier))
For Each _Fichier As String In Directory.GetFiles(_RepertoireALister)
TreeView1.TopNode.Nodes.Add(_Fichier, Path.GetFileName(_Fichier))
Next
Next
End Sub
End Class
merci

--

6 réponses

dartagnan43 Messages postés 45 Date d'inscription samedi 31 mai 2008 Statut Membre Dernière intervention 26 février 2015 2
Modifié par dartagnan43 le 23/09/2014 à 19:02
J'ai réussi youpi

Imports System.IO

Public Class Form1
Const _RepertoireALister As String = "."
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.TreeView1.TopNode = Me.TreeView1.Nodes.Add(_RepertoireALister, _RepertoireALister)
For Each _Dossier As String In Directory.GetDirectories(_RepertoireALister)
Me.TreeView1.TopNode.Nodes.Add(_Dossier, Path.GetFileName(_Dossier))
listeDesFichiers(TreeView1.TopNode, _Dossier)
Next
For Each _Fichier As String In Directory.GetFiles(_RepertoireALister)
Me.TreeView1.TopNode.Nodes.Add(Path.GetFileName(_Fichier))
Next
End Sub
Sub listeDesFichiers(ByVal _MonNode As TreeNode, ByVal _Nom As String)
Dim Node As TreeNode = _MonNode.Nodes(_Nom)
For Each Dossier As String In Directory.GetDirectories(_Nom)
Node.Nodes.Add(Dossier, Path.GetFileName(Dossier))
listeDesFichiers(Node, Dossier)
Next
For Each fichier As String In Directory.GetFiles(_Nom)
Node.Nodes.Add(Path.GetFileName(fichier))
Next

End Sub
End Class


--
2