Examples: Compact method (NotesDatabase - LotusScript)
- This script compacts WHITESPC.NSF if less than 85% of its disk
space is occupied by real data.
Dim db As New NotesDatabase( "", "whitespc.nsf" )
If ( db.PercentUsed < 85 ) Then
Call db.Compact
End If
- This script compacts TOOBIG.NSF if less than 90% of its disk space
is occupied by real data. It displays a message indicating the number
of bytes that have been freed.
Dim db As New NotesDatabase( "", "toobig.nsf" )
Dim delta As Long
If ( db.PercentUsed < 90 ) Then
delta = db.Compact
Messagebox( "You've freed " & delta & " bytes" )
End If
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.