' 最上位の ClearCase オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim VOB as CCVOB
Dim Act as CCActivity
' ClearCase.Application オブジェクトから VOB を取得します (IClearCase を使用)。
' その際、VOB タグの指定とエラーのチェックを行います。
On Error Resume Next
Set VOB = CC.VOB("¥code")
If Err.Number <> 0 Then
MsgBox "CC.VOB returned error: " & Err.Description
End If
' VOB から特定のアクティビティを取得し、エラーをチェックします。
On Error Resume Next
Set Act = VOB.Activity("activity990513.133238")
If Err.Number <> 0 Then
MsgBox "VOB.Activity returned error: " & Err.Description
Else
MsgBox "Got activity named " & Act & " from VOB named " & VOB
End If