' Connect to the top-level ClearCase object
Dim CC As New ClearCase.Application
Dim Ver As CCVersion
Dim Elem As CCElement
' Get a CCVersion object and a CCElement object
' from the top-level application object
Set Ver = CC.Version("m:\carol_main\caroltest\testelem.c")
Set Elem = CC.Element("m:\carol_main\caroltest\.@@")
' Invoke properties from ICCFile on the version object
MsgBox "Extended Path: " & Ver.ExtendedPath & vbCrLf & _
Ver.Path & " is a directory? " & CBool(Ver.IsDirectory)
' Invoke the same properties from ICCFile on the element object
MsgBox "Extended Path: " & Elem.ExtendedPath & vbCrLf & _
Elem.Path & " is a directory? " & CBool(Elem.IsDirectory)