Example: Working with elements

' Connect to the top-level Rational ClearCase application object
Dim CC As New ClearCase.Application
Dim Elem As CCElement

' Get a CCElement object from the top-level application object
Set Elem = CC.Element("m:\carol_main\caroltest\cm.c")

' Set the permissions on this element to allow read and write
' permission to the owner, but only read permissions to group and others
Elem.SetPermissions(&O644)

' Invoke ICCElement properties on the element object
MsgBox "Permissions: " & Oct(Elem.Permissions) & "; Group: " & _
     Elem.Group & vbCrLf & "Element Type: " & Elem.ElementType

' Rename the element by checking out the parent directory version,
' doing the rename, then checking back in the parent directory version.
' Note: error checking is not shown in this example but should be done!
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

' Invoke ICCFile properties on the element object
MsgBox "Element has path " & Elem.Path & " in VOB " & Elem.VOB

' Invoke ICCVOBObject properties on the element object
MsgBox "Creation comment: " & Elem.Comment

' Get the version of this element with label 'TESTCI'
MsgBox "Version " & Elem.Version("TESTCI").ExtendedPath & " has label TESTCI"

Feedback