' Connect to the top-level 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"