Private Sub Folder2TreeView(ByVal trv As TreeView, ByVal fld As String)
 
        trv.Nodes.Clear()
        trv.BeginUpdate()
        For Each file As String In IO.Directory.GetFiles _
            (fld, "*.*", IO.SearchOption.AllDirectories)
            CreatePathNode(trv, file)
        Next file
        trv.EndUpdate()
        trv.Invalidate()
 
End Sub
 
 
Private Sub CreatePathNode(ByVal trv As TreeView, ByVal Path As String, _
                               Optional ByVal PathSeparator As Char = "\"c)
 
    Dim parts() As String = Path.Split(PathSeparator)
 
    Dim ndc As TreeNodeCollection = trv.Nodes
    Dim sp As String = "", nd As TreeNode
 
 
    For i As Integer = 0 To parts.Length - 1
       sp &= parts(i)
       If i < parts.Length - 1 Then sp &= PathSeparator
 
       If Not ndc.ContainsKey(parts(i)) Then
          nd = ndc.Add(parts(i), parts(i))
       Else
          nd = ndc.Find(parts(i), False)(0)
       End If
 
       ndc = nd.Nodes
    Next i
End Sub