' 最上位の ClearCase オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim VOB As CCVOB
Set VOB = CC.VOB("¥steve_test")
Dim Attype As CCAttributeType
' "Quality" 属性を作成し、デフォルト値を
' 5、範囲を 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
' ファイル バージョンにデフォルト値を適用します。
Set Ver = CC.Version("y:¥steve_test¥foo.c")
Attype.Apply Ver, , "Use default value"
' ディレクトリ バージョンに明示的な値を適用します。
Set Ver = CC.Version("y:¥steve_test¥.")
Attype.Apply Ver, 3, "Use explicit version"
' 属性タイプとそのすべてのインスタンスを削除します。
Attype.RemoveType True, "Remove type and all instances"