' Connect to the top-level ClearCase application object
Dim CC As New ClearCase.Application
Dim Ver As CCVersion
Dim CheckedOutFile As CCCheckedOutFile
' Get a CCVersion object from the top-level application object
Set Ver = CC.Version("m:\carol_main\caroltest\testelem.c")
' Check out the file, specifying a comment but taking most of the
' defaults for other checkout arguments, and get a CCCheckedOutFile pointer
Set CheckedOutFile = Ver.CheckOut(ccReserved, "check out for example")
' Invoke ICCCheckedOutFile properties on the checked-out file object
If CheckedOutFile.IsReserved = True Then
State = "reserved"
Else
State = "unreserved"
End If
MsgBox "Checked out " & State & " by view " & CheckedOutFile.ByView
' Invoke ICCVersion properties on the checked-out file object
MsgBox "Checked out on branch " & CheckedOutFile.Branch & vbCrLf & _
"Predecessor is " & CheckedOutFile.Predecessor.ExtendedPath
' Invoke ICCFile properties on the checked-out file object
MsgBox "Checked out file has path " & CheckedOutFile.Path & _
" and extended path " & CheckedOutFile.ExtendedPath
' Invoke ICCVOBObject properties on the checked-out file object
MsgBox "Creation comment: " & CheckedOutFile.Comment
' Cancel the checkout, removing the contents of the checked-out file,
' and getting back a CCVersion object
Set Ver = CheckedOutFile.UnCheckOut(ccRemove)
MsgBox Ver.ExtendedPath