Files and Folders Treeview

[Radjesh Klauke]

Ola,

I have a code where I load a specific folder, but I also want to show the files within that specific folder. Anyone knows how?

code:

Public Sub LoadFolderTree(ByVal path As String)
   Dim basenode As System.Windows.Forms.TreeNode
   If IO.Directory.Exists(path) Then
      If path.Length <= 3 Then
         basenode = explorer_tree.Nodes.Add(path)
      Else
         basenode = explorer_tree.Nodes.Add(My.Computer.FileSystem.GetName(path))
      End If
      basenode.Tag = path
      LoadDir(path, basenode)
   Else
      Throw New System.IO.DirectoryNotFoundException()
   End If
End Sub
 
Private Sub explorer_tree_AfterExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles explorer_tree.AfterExpand
   Dim n As System.Windows.Forms.TreeNode
   For Each n In e.Node.Nodes
      LoadDir(n.Tag, n)
   Next
End Sub
 
Public Sub LoadDir(ByVal DirPath As String, ByVal Node As Windows.Forms.TreeNode)
   On Error Resume Next
   Dim Dir As String
   Dim Index As Integer
   If Node.Nodes.Count = 0 Then
      For Each Dir In My.Computer.FileSystem.GetDirectories(DirPath)
         Index = Dir.LastIndexOf("\")
         Node.Nodes.Add(Dir.Substring(Index + 1, Dir.Length - Index - 1))
         Node.LastNode.Tag = Dir
         Node.LastNode.ImageIndex = 0
      Next
   End If
End Sub