Hola
Creía que con la función Dir se podía hacer algo de eso, he mirado en la ayuda del VB6 y pone un ejemplo justo de lo que estabas buscando lo he cambiado para que muestre el resultado en un control list
Código vb:
Ver original' Muestra los nombres en C:\ que representan directorios.
MiRuta = "C:\Documents and Settings\" ' Establece la ruta.
MiNombre = Dir(MiRuta, vbDirectory) ' Recupera la primera entrada.
Do While MiNombre <> "" ' Inicia el bucle.
' Ignora el directorio actual y el que lo abarca.
If MiNombre <> "." And MiNombre <> ".." Then
' Realiza una comparación a nivel de bit para asegurarse de que MiNombre es un directorio.
If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then
List1.AddItem MiNombre ' Muestra la entrada
End If ' solamente si representa un directorio.
End If
MiNombre = Dir ' Obtiene siguiente entrada.
Loop
* El código lo he copiado de la ayuda del VB6
--Saludos--