' Connect to the top-level 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