Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim alldrives() As System.IO.DriveInfo
 
        alldrives = System.IO.DriveInfo.GetDrives
 
        TreeView1.ShowLines = True
        TreeView1.ShowPlusMinus = True
 
        For Each t As System.IO.DriveInfo In alldrives
            Dim No As New TreeNode
            No.Text = t.Name
            No.Tag = t.Name
            If t.IsReady Then No.Nodes.Add("dummy")
            TreeView1.Nodes.Add(No)
        Next
    End Sub
 
    Private Sub TreeView1_BeforeExpand(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.TreeViewCancelEventArgs) Handles _
      TreeView1.BeforeExpand
        e.Node.Nodes.Clear()
 
        For Each t As String In System.IO.Directory.GetDirectories(e.Node.Tag)
            Try
                Dim No As New TreeNode
                No.Text = t.Substring(t.LastIndexOf("\") + 1)
                No.Tag = t
                If System.IO.Directory.GetDirectories(t).Length > 0 Then _
                  No.Nodes.Add("dummy")
                e.Node.Nodes.Add(No)
 
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Next
    End Sub
End Class

Gru?

Silver