' 最上位の ClearCase アプリケーション オブジェクトに接続します。 Dim CC As New ClearCase.Application Dim View as CCView ' ビュー タグからビューを取得します。 Set View = cc.View("carol_main") ' 表示のために、ビューのプロパティを集めます。 Dim strSnapShot As String Dim strActive As String If View.IsSnapShot Then strSnapShot = "Snapshot" Else strSnapShot = "Dynamic" End If If View.IsActive Then strActive = "active" Else strActive = "not active" End If ' いくつかのビュー プロパティを表示します。 MsgBox strSnapShot & "View " & View.TagName & " on " & View.Host & _ " is " & strActive & " and has config spec: " & vbCrLf & View.ConfigSpec