例: VOB ファイル システム オブジェクトのプロパティにアクセスする

' 最上位の ClearCase オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim Ver As CCVersion
Dim Elem As CCElement

' 最上位のアプリケーション オブジェクトから
' CCVersion オブジェクトと CCElement オブジェクトを取得します。
Set Ver = CC.Version("m:¥carol_main¥caroltest¥testelem.c")
Set Elem = CC.Element("m:¥carol_main¥caroltest¥.@@")

' バージョン オブジェクトの ICCFile からプロパティを呼び出します。
MsgBox "Extended Path: " & Ver.ExtendedPath & vbCrLf & _
     Ver.Path & " is a directory? " & CBool(Ver.IsDirectory)

' エレメント オブジェクトの ICCFile から同じプロパティを呼び出します。
MsgBox "Extended Path: " & Elem.ExtendedPath & vbCrLf & _
     Elem.Path & " is a directory? " & CBool(Elem.IsDirectory)