1 2 3 4 5 6 7 8 9 10 11 12 13 14
| 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 |
Partager