This example retrieves the setting of the IsWritable property for a WebFolder object.
Private Sub CheckExecutable()
Dim myFolder As WebFolder
Dim myWritableStatus As Boolean
Set myFolder = ActiveWeb.RootFolder.Folders("images")
myWritableStatus = myFolder.IsWritable
End Sub