→→→フォルダを表示するTreeView

クリックでTreeViewにフォルダ表示する

TextBox1/Button/TreeViewを追加する。
Buttonで指定するドライブを選択。
TreeViewにドライブの内容を表示。

Private Sub btnInitialFolder_Click(....
       Dim root As TreeNode
       Dim path As String = "D:\見たいフォルダ"
       txtInitialFolder.Text = path
       root = **Folder.Nodes.Add( txtInitialFolder, Text)
       getFolders( txtInitialFolder.Text, root )
End Sub


Private Sub getFolders( ByVal sDir As String, ByVal t As TreeNode )
       Dim di As DirectoryInfo
       Dim d  As DirectoryInfo
       Dim f  As FileInfo
       Dim node As TreeNode


       di = New DirectoryInfo( sDir )
       Try
              For Each d In di.GetDirectories()
                   node = t.Nodes.Add( d.Name )
                   getFolders( d.FullName, node )
              Next
              For Each f In di.GetFiles()
                   t.Nodes.Add( t.Name )
              Next
        Catch ex As System.Exception
              MsgBox(ex.Message)
        End Try
End Sub