| Gets the number of objects in the collection. | |
| Syntax: | long = object.Count |
| Description: | The Count property returns the number of
actions for the selected procedure. Example: Sub GefProcActions_Count() Dim oCimObj As GefObject Dim oCimProceduresObj As
GefProcedures Dim oCimProcedObj As
GefProcedure Dim oCimProcAct As
GefProcActions Set oCimObj = CimGetObject Set oCimProceduresObj =
oCimObj.Procedures If oCimProceduresObj.Count > 0
Then Set
oCimProcedObj = oCimProceduresObj.Item(0) Set
oCimProcAct = oCimProcedObj.Actions MsgBox "The
number of actions in the first " & _ "procedure
is " & oCimProcAct.Count Else MsgBox "The
object does not have any procedures" End If End Sub |