Referencia o FSO...
Dim FSO AS New FileSystemObject
Private Sub LerPasta(pasta as String)
Dim Child as Folder, Atual as Folder
Set Atual = FSO.GetFolder(pasta)
'aqui vc faz o q vc quizer com a pasta...
'este for-next vai percorrer todas as subpastas, em todos os niveis
' executando o mesmo codigo programado acima...
For Each Child in Atual.Subfolders
LerPasta(Child.path)
Next
End Sub
Acho q isso te ajuda... qq coisa, manda um e-mail ou posta ai...
