Example: Accessing an activity from a VOB

' Connect to the top-level ClearCase object
Dim CC As New ClearCase.Application
Dim VOB as CCVOB
Dim Act as CCActivity

' Get a VOB from the ClearCase.Application object (uses IClearCase),
' giving the VOB-tag and checking for errors.

On Error Resume Next
Set VOB = CC.VOB("\code")
If Err.Number <> 0 Then
     MsgBox "CC.VOB returned error: " & Err.Description
End If

' Get a particular activity from the VOB, checking for errors

On Error Resume Next
Set Act = VOB.Activity("activity990513.133238")
If Err.Number <> 0 Then
     MsgBox "VOB.Activity returned error: " & Err.Description
Else
     MsgBox "Got activity named " & Act & " from VOB named " & VOB
End If

Feedback