Obtener las carpetas de un directorio

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