Obtener las carpetas de un directorio

Dim directorios() As String = Directory.GetDirectories(Directory.GetCurrentDirectory & "\" & dirEmpresas)

Obtener el nombre del último directorio

For Each d As String In empresas
Dim dname As String = New DirectoryInfo(d).Name
Next


Dim dirfolder As String = "D:\bin\Debug\empresas\789-K"
Dim namefolder As String = Path.GetFileName(dirfolder)

Cantidad de directorios en un directorio

Dim nDir As Integer = Directory.GetDirectories(DirEmpresas).Length