' 最上位の 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)