' Connect to the top-level ClearCase object
Dim CC As New ClearCase.Application
' Get a trigger type from the VOB
Dim VOB As CCVOB
Set VOB = CC.VOB("\caroltest")
Dim TriggerType As CCTriggerType
Set TriggerType = VOB.TriggerType("my_trigger")
' Apply the trigger type to a directory element, specifying that the
' directory subset list should exclude the inheritance list
Dim Elem As CCElement
Set Elem = CC.Element("\caroltest")
TriggerType.Apply Elem, "Applying trigger from CAL example", False, _
False, ccSubset_NotInheritance
' Get information about a trigger on an element
Dim Trigger As CCTrigger
Dim strAttached As String
Dim strInheritance As String
Set Trigger = Elem.Trigger("another_trigger")
If Trigger.IsOnAttachedList Then
strAttached = " is on attached list."
End If
If Trigger.IsOnInheritanceList Then
strInheritance = " is on inheritance list."
End If
MsgBox "Trigger of type " & Trigger.Type & strAttached & strInheritance