Propiedad SubFolders
Devuelve una colección Folders que consta de todas las carpetas contenidas en una carpeta especificada, incluidas las que tienen los atributos de archivo Oculto y Sistema establecidos.
objeto . Subcarpetas
El objeto siempre es un objeto Folder .
En el código siguiente se muestra el uso de la propiedad SubFolders .
Sub ShowFolderList(folderspec)
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
s = s & f1.name
s = s & vbCrLf
Next
MsgBox s
End Sub
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.