IsReadable Property Example

This example retrieves the setting of the IsReadable property for a WebFolder object.

Private Sub CheckReadable()
Dim myFolder As WebFolder
Dim myReadStatus As Boolean

Set myFolder = ActiveWeb.RootFolder.Folders("images")
myReadStatus = myFolder.IsReadable

End Sub