' 最上位の 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"