Listar carpetas

[xavi]

Palabras clave: listar, carpetas, directorios, WSH
Autor: Juan M. Afán de Ribera (Happy)
Extraído de: La web del Búho

Objetivo:
Rutina que lista las carpetas existentes en una ruta

Código [Seleccionar] Expandir



'*********** 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 ********