' 最上位の ClearCase オブジェクトに接続します。 Dim CC As New ClearCase.Application Dim CheckedOutFile As CCCheckedOutFile ' ファイルは現在のビューに対してチェックアウトされているか? On Error Resume Next Set CheckedOutFile = CC.CheckedOutFile("m:¥carol_main¥caroltest¥coelem.c") If Err.Number <> 0 Then MsgBox "It's not checked out to the current view" Else MsgBox "It is checked out to the current view" ' ファイルは特定のタグを使用してビューに対してチェックアウトされているか? Dim OtherView as CCView Set OtherView = cc.View("caroly_cal") If (CheckedOutFile.ByView.TagName = OtherView.TagName) Then MsgBox "Views match" Else MsgBox "Views don't match" End If End If