例: エレメントの作業

' 最上位の Rational ClearCase アプリケーション オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim Elem As CCElement

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

' このエレメントの許可を設定して、所有者に読み取りと書き込みを許可します。
' ただし、グループと他のユーザーには読み取りのみを許可します。
Elem.SetPermissions(&O644)

' エレメント オブジェクトで ICCElement プロパティを呼び出します。
MsgBox "Permissions: " & Oct(Elem.Permissions) & "; Group: " & _
     Elem.Group & vbCrLf & "Element Type: " & Elem.ElementType

' エレメントの名前を変更します。まず親ディレクトリ バージョンをチェックアウトし、
' 名前の変更を行ってから、再び親ディレクトリ バージョンをチェックインして戻します。
' 注: この例にはエラー チェックが示されていませんが、実際の使用ではエラー チェックを行ってください。
Set CheckedOutDir = Elem.Parent.Version.CheckOut(ccReserved, _
     "example script: rename cm.c to dm.c")
Elem.Rename "m:¥carol_main¥caroltest¥dm.c", _
     "renamed by ICCElement example script"
CheckedOutDir.CheckIn

' エレメント オブジェクトで ICCFile プロパティを呼び出します。
MsgBox "Element has path " & Elem.Path & " in VOB " & Elem.VOB

' エレメント オブジェクトで ICCVOBObject プロパティを呼び出します。
MsgBox "Creation comment: " & Elem.Comment

' ラベル 'TESTCI' を持つこのエレメントのバージョンを取得します。
MsgBox "Version " & Elem.Version("TESTCI").ExtendedPath & " has label TESTCI"