FileLocks Example

Land Auto

previous page next page

FileLocks Example 

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

previous page start next page