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