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