Visual Basic - Dir1

Nas gente..................

A ver si alguien sabe como puedo saber cuantos directorios hay en un directorio como saber el nombre del directorio.

Graciaaaaaaaaaaaaaaaaaaaaaaaaaaas!

Usa la función Dir de VB para recorrer todos los archivos, algo así:

Dim sDir$

sDir=Dir("C:\",vbDirectory)

Do While sDir<>vbNullString
If sDir<>"." And sDir <>".." Then
If (GetAttr("C:\" & sDir) And vbDirectory) Then
'Es un directorio

End If
End If
sDir = Dir(,vbDirectory)
Loop