Count Example

Land Auto

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