Example: Accessing properties of VOB file system objects

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

Feedback