Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Dim drives = DriveInfo.GetDrives
        For Each drive As DriveInfo In drives
            Dim node = TreeView1.Nodes.Add(drive.Name)
            FillNote(node, drive.RootDirectory)
        Next
    End Sub
 
    Private Sub FillNote(ByVal node As TreeNode, ByVal directory As _
      DirectoryInfo)
        Try
            Dim directories = directory.GetDirectories
            For Each subdirectory As DirectoryInfo In directories
                Dim subnode = node.Nodes.Add(subdirectory.Name)
                FillNote(subnode, subdirectory)
            Next
        Catch ex As Exception
 
        End Try
    End Sub
 
 
    Private Sub TreeView1_AfterSelect(sender As System.Object, e As _
      System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
 
        Dim directory As IO.DirectoryInfo
        directory = CType(TreeView1.SelectedNode.Tag, IO.DirectoryInfo)
 
        If directory IsNot Nothing Then
            Dim files() As IO.FileInfo = directory.GetFiles
 
            ListView1.Items.Clear()
 
            For Each file As IO.FileInfo In files
                ListView1.Items.Add(file.Name)
            Next file
        End If
 
    End Sub