' 最上位の ClearCase オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim Ver As CCVersion
' ファイルがソース制御下にあるかどうかを通知する方法 (ICCVersion の例)
On Error Resume Next
Set Ver = CC.Version("m:¥carol_main¥caroltest¥testelem.c")
If Err.Number <> 0 Then
MsgBox "It's not under source control: " & Err.Description
Else
MsgBox "It's under source control, with extended path " & Ver.ExtendedPath
' CCVersion オブジェクトが表すファイルがチェックアウト済みかどうかを通知させる方法
MsgBox "Checked out? " & Ver.IsCheckedOut
End If