Ordner mit Dateien im Treeview auflisten

Computer: Software & Programmierung .NET & C#
#1

Wie schaffe ich es, auf den Ordnerknoten zu klicken und dann seine Dateien ausfallten zu lassen und zwar direkt unter dem zugehörigen Ordner: Bis jetzt fallten sich die Dateien erst unter den ganzen Ordnern aus (weil ich dummerweise nochmal einen Extraknoten definieren muss, damit mir meine Unterknoten aufgehen) . Es ist bestimmt ganz easy, nur komme ich nicht drauf.

For Each SubDir As DirectoryInfo In Dir.GetDirectories

Dim Tn As TreeNode = TreeView1.Nodes.Add(SubDirName)
next

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

StartDir = StartDir & TreeView1.SelectedNode.Text

Dim Dir As New DirectoryInfo(StartDir)

For Each Fi As FileInfo In Dir.GetFiles
Dim Tn As TreeNode = TreeView1.Nodes.Add("")

#2

So sollte es gehen

Public Class Form1
 Private Sub Form1\_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Dim di As DirectoryInfo = New DirectoryInfo("C:\")
 For Each di1 As DirectoryInfo In di.GetDirectories
 Me.TreeView1.Nodes.Add(di1.FullName)
 Next
 End Sub

 Private Sub TreeView1\_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
 If Me.TreeView1.SelectedNode Is Nothing Then
 Return
 End If

 Dim di As DirectoryInfo = New DirectoryInfo(Me.TreeView1.SelectedNode.Text)
 Me.TreeView1.SelectedNode.Nodes.Clear()
 For Each di1 As DirectoryInfo In di.GetDirectories
 Me.TreeView1.SelectedNode.Nodes.Add(di1.FullName)
 Next
 Me.TreeView1.SelectedNode.Expand()
 End Sub
End Class
#3

Ja, sehr gut,schön gelöst, vielen Dank