Folder.SubFolders property

Returns a Folders collection consisting of all folders contained in a specified folder, including those with Hidden and System file attributes set.

Syntax

object.SubFolders

The object is always a Folder object.

Examples

The following code illustrates the use of the SubFolders property.

Sub ShowFolderList(folderspec)
    Dim fso As Object, f As Object, f1, fc As Object, msg As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 In sf
        msg = msg & f1.Name
        msg = msg & vbCrLf
    Next
    Debug.Print msg
End Sub

Run the following code in the Immediate Window to test this macro:

ShowFolderList("d:\TestFolder")

Result:

floder A
hidden floder