Imports System.IO
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        With tvDrives
 
            .BeginUpdate()
            For Each dr As DriveInfo In DriveInfo.GetDrives()
                .Nodes.Add(dr.Name)
 
            Next
 
            .EndUpdate()
        End With
 
    End Sub
 
    Private Sub tvDrives_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvDrives.AfterSelect
 
        With tvDrives
 
            For Each dr As DriveInfo In DriveInfo.GetDrives()
 
                Dim dir As New DirectoryInfo(dr.Name) ' i want to try and use the selected node, but i am having trouble figuring this out and i just used this instead to make it work temporarily.
 
                .ShowPlusMinus = True
 
                For Each d As DirectoryInfo In Dir.GetDirectories()
                    Dim count As Integer = 0
                    .Nodes(count).Nodes.Add(d.Name)
                    count += 1
                Next
 
            Next
 
        End With
 
    End Sub
End Class