Count Example
Sub Example_Count()
' Use count to retrieve the number of entities in a collection.
' You might use this value in a loop structure to iterate through the collection.
MsgBox "There are " & AeccApplication.Projects.count & " project(s) at the project path.", _
vbInformation, "Count Example"
Dim objCount As Integer
objCount = AeccApplication.Projects.count
Dim I As Integer
Dim proj As AeccProject
For I = 0 To objCount - 1
Set proj = AeccApplication.Projects.Item(I)
MsgBox "The projects collection includes: " & proj.Name, _
vbInformation, "Count Example"
Next
End Sub