' 最上位の ClearCase アプリケーション オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim VOB as CCVOB
' 最上位の ClearCase アプリケーション オブジェクトから VOB を取得します。
Set VOB = cc.VOB("¥projects")
' VOB から CCAttributeTypes コレクションを取得します。コレクションをループして、
' 各属性タイプについての情報を集めます。
Dim AtType as CCAttributeType
Dim Str as String
For Each AtType In VOB.AttributeTypes
Str = Str & AtType.Name & ":" & vbCrLf & " Owner: " & AtType.Owner & _
"; Group: " & AtType.Group
Select Case AtType.Constraint
Case ccConstraint_None
' No constraint; この Case には、出力行を一切追加しないでください。
Case ccConstraint_PerElement
Str = Str & vbCrLf & " Constraint: one instance per element"
Case ccConstraint_PerBranch
Str = Str & vbCrLf & " Constraint: one instance per branch"
Case ccConstraint_PerVersion
Str = Str & vbCrLf & " Constraint: one instance per version"
Case Else
Str = Str & vbCrLf & " Unknown constraint type"
End Select
Select Case AtType.ValueType
Case vbLong
Str = Str & vbCrLf & " Value type: integer"
Case vbDouble
Str = Str & vbCrLf & " Value type: real"
Case vbDate
Str = Str & vbCrLf & " Value type: date-time"
Case vbString
Str = Str & vbCrLf & " Value type: string"
Case Else
Str = Str & vbCrLf & " Unknown value type"
End Select
On Error Resume Next
Str = Str & vbCrLf & " Default value: " & AtType.DefaultValue
On Error Resume Next
Str = Str & vbCrLf & " Lower value: " & AtType.LowerValue
On Error Resume Next
Str = Str & vbCrLf & " Upper value: " & AtType.UpperValue
' etc, etc: ここに、任意の属性タイプ プロパティを追加します。
Str = Str & vbCrLf
Next
' 結果を出力します。
MsgBox Str