Private Sub ShowDrives()
        tv.Nodes.Clear()
        Dim d() As String
 
        d = System.IO.Directory.GetLogicalDrives()
 
        Dim en As System.Collections.IEnumerator
 
        en = d.GetEnumerator
 
        While en.MoveNext
            tv.Nodes.Add(en.Current)
            tv.Nodes(tv.GetNodeCount(False) - 1).ImageIndex = 1
            tv.Nodes(tv.GetNodeCount(False) - 1).SelectedImageIndex = 1
            ShowFolders(en.Current, tv.Nodes(tv.GetNodeCount(False) - 1))
        End While
    End Sub
    Private Sub ShowFolders(ByVal myPath As String, ByVal myNode As TreeNode)
        Dim s() As String
        Try
            s = System.IO.Directory.GetDirectories(myPath)
 
            Dim en As System.Collections.IEnumerator
 
            en = s.GetEnumerator
 
            While en.MoveNext
                myNode.Nodes.Add(en.Current)
            End While
        Catch
            'myNode.Remove()
        End Try
    End Sub

MfG.
Fabian Stern
-
info@smart-coding.com
http://www.smart-coding.com