' 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