' Connect to the top-level ClearCase object
Dim CC As New ClearCase.Application
Dim Ver As CCVersion
' How to tell whether a file is under source control (ICCVersion example)
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
' How to tell whether a CCVersion object represents a checked-out file
MsgBox "Checked out? " & Ver.IsCheckedOut
End If