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