GefProcActions.Count (read-only property)

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.


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
        MsgBox "The object does not have any procedures"
    End If
End Sub