Folders Property Example

This example retrieves two of the properties of a folder and concatenates the data into a string with a pipe ("|") delimiter separating the data.

Note   The PropertyKeys shown in this example apply to a web created with the One Page Only Web Wizard. Other templates may use other PropertyKeys.

Private Sub GetFolderProperties()
Dim myFolders As WebFolders
Dim myFolder As WebFolder
Dim myHasSubDirs As String
Dim myIsScriptable As String
Dim myProperties As Properties

Set myFolders = ActiveWeb.Rootfolder.Folders

For Each myFolder In myFolders
    Set myProperties = myFolder.Properties
    
    myHasSubDirs = myHasSubDirs & _
        myProperties("vti_ hassubdirs") & "|"
    myIsScriptable = myIsScriptable & _
        myProperties("vti_ isscriptable") & "|"
Next
End Sub