Minireto listar directorios & archivos

Function ListDir(ByVal StrPath As String) As ArrayList
        Dim dir As DirectoryInfo = New DirectoryInfo(StrPath)
        Dim ta As ArrayList = New ArrayList()
        For Each subdir As DirectoryInfo In dir.GetDirectories
            ta.Add(subdir.FullName)
        Next
        For Each Filef As IO.FileInfo In dir.GetFiles
            ta.Add(Filef.Name)
        Next
        Return ta
    End Function

Private void ListaDir(String folder)
{
try
{
String[] dirs = System.IO..Directory.GetDirectories(folder);

foreach (String dir in dirs)
{
ListaDir(dir);
}
}
catch { }
}