' 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"