Manejando directorios y archivos con .net

[cy5]

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