Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim tlec As Long
 Dim views As Variant
 Set db = session.CurrentDatabase
 views = db.Views
 Forall view In views
   tlec = view.TopLevelEntryCount
   If tlec < 0 Then
     tlec = tlec + 65536
   End If
   Messagebox "Top level count = " & tlec,, view.Name
 End Forall
End Sub

関連項目

TopLevelEntryCount プロパティ

用語集