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