SubFolders (Propiedad)
Descripción
Devuelve una colección Folders compuesta por todas las carpetas contenidas en una carpeta especificada, incluyendo las que tienen establecidos atributos de archivo del sistema y oculto.
Sintaxis
objeto.SubFolders
El objeto es siempre un objeto Folder.
Comentarios
El código siguiente demuestra la utilización 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