Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        treeDir.Nodes.Clear()
        CreateDirTree(Nothing, Environment.SystemDirectory)
    End Sub
 
    Private Sub CreateDirTree(ByVal fromNode As TreeNode, ByVal basePath As String)
        Dim newDir As TreeNode
        Dim subDir As String
 
        For Each singleDir As String In My.Computer.FileSystem.GetDirectories(basePath)
            subDir = My.Computer.FileSystem.GetName(singleDir)
 
 
            If fromNode Is Nothing Then
                newDir = treeDir.Nodes.Add(subDir)
            Else
                newDir = fromNode.Nodes.Add(subDir)
            End If
 
            CreateDirTree(newDir, My.Computer.FileSystem.CombinePath(basePath, subDir))
        Next singleDir
    End Sub