' 最上位の Rational ClearCase オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim Act as CCActivity
' ClearCase.Application オブジェクトからアクティビティを取得します。
' その際、VOB タグ名を含むアクティビティ セレクタを指定し、
' エラーのチェックを行います。
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
' アクティビティの変更セットである CCVersions コレクションを取得します。
Dim strVers As String
Dim ChangeSet as CCVersions
' 名前の解決には変更セットの「NameResolver ビュー」を使用します。
' また、使用不可能なバージョンによって CCVersions オブジェクトの
' 初期化が失敗することがないように、指定を行います。
Set ChangeSet = Act.ChangeSet(Act.NameResolverView, False)
strVers = "Change set has " & ChangeSet.Count & " version(s): "
' CCVersions コレクション全体をループして、出力用のバージョンの
' 名前を収集します。
Dim Ver As CCVersion
For Each Ver In ChangeSet
strVers = strVers & vbCrLf & Ver.ExtendedPath
Next
' 結果を出力します。
MsgBox strVers
' 変更セットの初期化時に発生したエラーを
' すべて出力します。
MsgBox ChangeSet.InitErrors
End If