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