' 最上位の ClearCase オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim VOB as CCVOB
Dim Act as CCActivity
Dim AtTypes As CCAttributeTypes
Dim StringAtTypes As CCAttributeTypes
Dim IntegerAtTypes As CCAttributeTypes
Set VOB = CC.VOB("¥code")
' 特定の VOB の属性のコレクションを取得します。
Set AtTypes = VOB.AttributeTypes
' 空のコレクションをセットアップします。
Set StringAtTypes = CC.AttributeTypesEmpty
Set IntegerAtTypes = CC.AttributeTypesEmpty
Dim AtType As CCAttributeType
For Each AtType in AtTypes
' 独自のコレクションに整数値と文字列値の属性タイプを追加し、
' 残りはスキップします。
Select Case AtType.ValueType
Case vbLong
IntegerAtTypes.Add AtType
Case vbString
StringAtTypes.Add AtType
End Select
Next