Compartir a través de

Propiedad SubFolders

  • Artículo

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.

Sintaxis

objeto . Subcarpetas

El objeto siempre es un objeto Folder .

Comentarios

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

Vea también

Soporte técnico y comentarios

¿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.