Поделиться через

Свойство SubFolders

  • Статья

Возвращает коллекцию Папок, состоящую из всех папок, содержащихся в указанной папке, включая папки с атрибутами Скрытый и Системный файл.

Синтаксис

object. Вложенные папки

Объект всегда является объектом Folder.

Замечания

В следующем коде показано использование свойства 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

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.