Example: Displaying an activity change set

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

' Get an activity from the ClearCase.Application object,
' giving an activity selector that includes the VOB-tag name, and
' check for errors
On Error Resume Next
Set Act = CC.Activity("ct38387@\projects")
If Err.Number <> 0 Then
     MsgBox "CC.Activity returned error: " & Err.Description
Else
     MsgBox "Got activity named " & Act & " with headline " & Act.Headline

     ' Get the activity's change set, which is a CCVersions collection.
     Dim strVers As String
     Dim ChangeSet as CCVersions

     ' Use the change set's "nameresolver view" for name resolution,
     ' and specify that unavailable versions should not cause the
     ' initialization of the CCVersions object to fail.
     Set ChangeSet = Act.ChangeSet(Act.NameResolverView, False)
     strVers = "Change set has " & ChangeSet.Count & " version(s): "

     ' Loop through the CCVersions collection, collecting the names of
     ' the versions for printing.
     Dim Ver As CCVersion
     For Each Ver In ChangeSet
          strVers = strVers & vbCrLf & Ver.ExtendedPath
     Next

     ' Print the result
     MsgBox strVers

     ' Now print any errors encountered during initialization 
     ' of the change set
     MsgBox ChangeSet.InitErrors
End If

Feedback