例: ベースラインについての情報を表示する

' ベースラインについていくつかの情報を表示します。
Dim CC As New ClearCase.Application

' "¥projects" というタグが付いたプロジェクト VOB を取得します。
Dim PVOB As CCProjectVOB
Set PVOB = CC.ProjectVOB("¥projects")

' プロジェクト VOB 内の特定のベースラインを取得します。
Dim Baseline As CCBaseline
Set Baseline = PVOB.Baseline("V1.0.BL2.0005.test@¥projects")

' このベースラインのプロモーション レベルを取得します。
MsgBox "The promotion level of this baseline is " & Baseline.PromotionLevel

' このベースラインのラベルの状態を取得します。
Dim Str As String
Select Case Baseline.LabelStatus
     Case ccLabelStatus_Unlabeled
          Str = "Unlabeled"
     Case ccLabelStatus_Incremental
          Str = "Incremental"
     Case ccLabelStatus_Full
          Str = "Fully labeled"
     Case Else
          Str = "Unknown label status"
End Select
MsgBox "The label status of this baseline is " & Str

' このベースラインが作成されたストリームを取得します。
MsgBox Baseline.Stream & " is the stream in which this baseline was created"

' このベースラインが含まれているコンポーネント、および
' そのコンポーネントのルート ディレクトリへのパスを取得します。
Dim View As CCView
Set View = CC.View("jo_main")
MsgBox "This baseline's component is " & _
Baseline.Component.Name & " and " & vbCrLf & _
"the path to the root directory of this baseline's component is " & _
Baseline.Component.RootDirectoryElement.PathInView(View)