' 最上位の 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