Private Sub FillTreeNode(ByVal dNode As ExpTreeNode)
      Try
         Dim d As New DirectoryInfo(dNode.FullPath)
         For Each di As DirectoryInfo In d.GetDirectories
            Dim nNode As New ExpTreeNode
            nNode.Text = di.Name
            nNode.FullPath = di.FullName
            dNode.Nodes.Add(nNode)
            nNode.Nodes.Add("")
         Next
      Catch : End Try
   End Sub
 
   Protected Overrides Sub OnBeforeExpand(ByVal e As _
     System.Windows.Forms.TreeViewCancelEventArgs)
      Dim n As ExpTreeNode = CType(e.Node, ExpTreeNode)
      If n.Nodes(0).Text = "" Then
         Me.BeginUpdate()
         n.Nodes.Clear()
         Me.FillTreeNode(n)
         Me.EndUpdate()
      End If
      MyBase.OnBeforeExpand(e)
   End Sub
 
   Private Function GetImageList() As ImageList
      Dim iIndex As Int16() = {3, 4, 6, 8, 9, 11, 15, 17, 31, 34, 126}
      Dim sKey As String() = {"closefolder", "openfolder", "floppy", "hdd", _
        "share", _
         "cdrom", "arbeitsplatz", "netzwerk", "papierkorb", "desktop", _
         "eigenedateien"}
      Dim shellpath As String = Environment.SystemDirectory & "\shell32.dll"
      Dim ilist As New ImageList()
      Dim sIcon As IntPtr
 
      ilist.ColorDepth = ColorDepth.Depth32Bit
 
      For x As Integer = 0 To iIndex.Length - 1
         Dim n As Integer = ExtractIconEx(shellpath, iIndex(x), IntPtr.Zero, _
           sIcon, 1)
         ilist.Images.Add(sKey(x), Icon.FromHandle(sIcon))
      Next
 
      Return ilist
   End Function
End Class
 
 
 
Public Class ExpTreeNode
   Inherits System.Windows.Forms.TreeNode
 
   Private m_FullPath As String
 
   Public Overloads Property FullPath() As String
      Get
         Return m_FullPath
      End Get
      Set(ByVal value As String)
         m_FullPath = value
      End Set
   End Property
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control