Visual Basic - urgente!!!

Hola ocupo saber como puedo recorrer todos los subdirectorios de un directorio principal...

porfavor si alguien sabe como hecer me lo puede pasar porfavor? gracias de antemano

Lo puedes hacer con la función Dir, en http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctDir.asp tienes la documentación y un ejemplo.

tengo este codigo y no se como puedo solucionarlo me podrian ayudar ?
gracias de antemano..

Private Sub llena(ByVal nom1, ByRef cont2)
Dim arreglo1(1 To 7) As String
Dim cont As Integer
Dim myname As String

myname = Dir(nom1, vbDirectory)
Do
cont = 0
myname = Dir(nom1, vbDirectory) ' Retrieve the first entry.
Do While myname <> ""
If myname <> "." And myname <> ".." Then
If (GetAttr(nom1 & myname) And vbDirectory) = vbDirectory Then
cont = cont + 1
arreglo1(cont) = nom1 & myname & "\"
End If ' it represents a directory.
End If
myname = Dir ' Get next entry.
Loop
If arreglo1(1) = "" Then
Exit Sub
End If
cont2 = cont - 1

Call llena(arreglo1(cont2), cont2)
Loop Until arreglo1(1) = ""
End Sub