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