Imports System.IO
Imports System.Windows.Forms

Private Sub Form_Load(ByVal Sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Load
  TreeView1.Nodes.Add("C:").Nodes.Add("-")
  ' ToDo: Laufwerke laden
End Sub
 
Private Sub TreeView1_AfterExpand(ByVal Sender As Object, ByVal e As _
  TreeViewEventArgs) Handles TreeView1.AfterExpand
  Dim N As TreeNode
  Try
    For Each N In e.Node.Nodes
      N.Remove()
    Next
  Catch
  End Try
 
  Dim D As DirectoryInfo
  For Each D In New DirectoryInfo(e.Node.FullPath & "\").GetDirectories
    N = e.Node.Nodes.Add(D.Name)
 
    Try
      If D.GetDirectories.Length Then
        N.Nodes.Add("-")
      End If
    Catch
    End Try
  Next
 
End Sub