Example: Creating, applying, and removing an attribute type

' Connect to the top-level ClearCase object
Dim CC As New ClearCase.Application
Dim VOB As CCVOB

Set VOB = CC.VOB("\steve_test")

Dim Attype As CCAttributeType

' Create a "Quality" attribute, with a default value
' of 5 and range of 1-10.
Set Attype = VOB.CreateAttributeType("Quality", vbLong, _
     "Tested Quality of Version")
Attype.SetDefaultValue 5
Attype.SetLowerValue 0
Attype.SetUpperValue 10, True, "Set upper value"
Dim Ver As CCVersion

' Apply the default value to file version
Set Ver = CC.Version("y:\steve_test\foo.c")
Attype.Apply Ver, , "Use default value"

' Apply explicit value to directory version
Set Ver = CC.Version("y:\steve_test\.")
Attype.Apply Ver, 3, "Use explicit version"

' Remove attribute type with all instances of it
Attype.RemoveType True, "Remove type and all instances"

Feedback