'*********** Código ***************
'
' ListaCarpetas
'
' Rutina que lista las carpetas
' existentes en una ruta
'
' Autor: Juan M. Afán de Ribera
' Fecha: Junio 2003
'
Sub ListaCarpetas(nomCarpeta)
Dim fso As Object 'New FileSystemObject
Dim carpeta As Object 'Folder
Dim subCarpeta As Object 'Folder
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set carpeta = fso.GetFolder(nomCarpeta)
    
    For Each subCarpeta In carpeta.SubFolders
        Debug.Print subCarpeta.Name
        ' utiliza esta línea para saber las subcarpetas
        ' contenidas en la carpeta actual
        'ListaCarpetas nomCarpeta & "\" & subCarpeta.Name
    Next
    
    Set carpeta = Nothing
    Set fso = Nothing
    
End Sub
'********* Fin código *************