Tengo que enumerar una serie de carpetas y archivos, desde punto net y viendo algunos ejemplo me di cuenta que tengo que hacer uso de algunas clases como io, directory, directoryinfo, file info y demas, tengo una rutina en la cual creo poder obtener un listado de carpetas y pasarlos a un treeview pero obtengo un error en un for ya que me indica que hay overload resolution failed donde me manda el error es en esta rutina
Código:
For Each d As System.IO.DirectoryInfo In Directory.GetDirectories()
el codigo de la aplicacion es la siguiente
Código:
Imports System
Imports System.IO
Imports System.IO.Directory
Imports System.IO.DirectoryInfo
Partial Class polproc
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For Each drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
Dim node As TreeNode = New TreeNode()
node.Value = Path.GetDirectoryName("C:\Proyectosweb08\adirectory\politicas_procedimientos\")
'node.Value = DirectoryInfo("C:\Proyectosweb08\adirectory\politicas_procedimientos")
If node.Value <> Nothing Then
node.Text = "Politicas y Procedimientos"
cargardirectorio(node, node.Text)
Else
node.Text = "Directorio Inexistente"
End If
Me.TreeView1.Nodes.Add(node)
Next
Me.TreeView1.CollapseAll()
End Sub
Private Sub cargardirectorio(ByVal parent As TreeNode, ByVal path As String)
Dim directorio As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(path)
If Directory.Exists("C:\Proyectosweb08\adirectory\politicas_procedimientos") Then
Try
For Each d As System.IO.DirectoryInfo In Directory.GetDirectories()
Dim node As TreeNode = New TreeNode(d.Name, d.FullName)
parent.ChildNodes.Add(node)
' recorrer(nuevamente)
cargardirectorio(node, d.FullName)
Next
Catch ex As System.UnauthorizedAccessException
parent.Text += "(Aceso denegado)"
Catch ex As System.IO.IOException
parent.Text += "(Error desconocido: " + ex.Message + ")"
End Try
End If
End Sub
End Class