PslProjects.Count
Returns the number of projects loaded in Passolo.
Syntax
Expression.Count as Long
Expression Required. Object of type PslProjects
Example
Dim n As Integer
n = PSL.Projects.Count
If n = 1 Then
MsgBox("One project is open")
Else
MsgBox(CInt(n) & " projects are open.")
End If