Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Dim di As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("d:\")
        Dim node As TreeNode = TreeView1.Nodes.Add(di.Name)
        Dim subnode As TreeNode = Nothing
 
        For Each subdir As System.IO.DirectoryInfo In di.GetDirectories
            subnode = node.Nodes.Add(subdir.Name)
            FillNode(subnode, subdir)
        Next
 
        MessageBox.Show("Ich bin fertig!")
 
    End Sub
 
    Private Sub FillNode(ByVal node As TreeNode, ByVal DirectoryName As _
      System.IO.DirectoryInfo)
 
        Dim subnode As TreeNode = Nothing
 
        Try
            For Each subdir As System.IO.DirectoryInfo In _
              DirectoryName.GetDirectories
                subnode = node.Nodes.Add(subdir.Name)
 
                FillNode(subnode, subdir)
 
            Next
            Application.DoEvents()
        Catch ex As Exception
 
        End Try
 
    End Sub
 
End Class

EALA FREYA FRESENA