DescriptionKeyFiles Example

Land Auto

DescriptionKeyFiles Example

Sub Example_DescriptionKeyFiles()
    
    ' This example returns the number of DescriptionKeyFiles
    ' in the current project.
    Dim proj As AeccProject
    Set proj = AeccApplication.ActiveProject
    
    MsgBox "The number of DescriptionKeyFiles in the current Project is: " & proj.DescriptionKeyFiles.Count _
        , vbInformation, "DescriptionKeyFiles Example"
    
End Sub