' ベースラインについていくつかの情報を表示します。
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)