' 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)