Hola buenas tardes,
Estoy intentando cargar en un TreeNode todos los directorios existentes en C:\ aun que solo me llega a cargar la primera carpeta de C:\ y sin sus subcarpetas.
Es decir:
+ C:\
Apache2
El código que tengo es el siguiente:
Código:
Private dirRaiz = "C:\"
Private objDirRaiz As New DirectoryInfo(dirRaiz)
Private Sub frmSeleccionarDir_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
CargarHijos(tvDirectorios.Nodes(0), objDirRaiz)
End Sub
Private i As Integer = 1
Private Sub CargarHijos(ByVal NodoPadre As TreeNode, _
ByVal ObjDir As DirectoryInfo)
Dim Hijo As DirectoryInfo
Try
For Each Hijo In ObjDir.GetDirectories
Hijo = New DirectoryInfo(Hijo.FullName)
With NodoPadre.Nodes.Add(Hijo.Name)
.ImageIndex = 0
CargarHijos(tvDirectorios.Nodes(i), Hijo)
End With
i += 1
Next
Catch e As System.Exception
Exit Sub
End Try
End Sub
Bueno, si alguien me puede ayudar e indicarme donde está el fallo, se lo agradecería mucho.
Saludos Cordiales.