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