例: ファイルが特定のビューにチェックアウトされているかどうかを判別する

' 最上位の 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