L\'avevo risolto appoggiandomi al CATALOG.NSF...con delle DBLOOKUP.
Ovviamente si potrebbe risolvere in altri modi...
Per esempio:
Dim db As NotesDatabase
Dim session As New NotesSession
Set db = session.CurrentDatabase
Msgbox "Database size is: ", db.Size
Msgbox "Database Quota is: ", db.SizeQuota
Msgbox "Database Maximum Size is: ", db.MaxSize, "K"
Daniele Grillo - Fondatore di Dominopoint.it
|