LOTUSSCRIPT/COM/OLE CLASSES
Examples: Compact method
1. 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
2. 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
See Also
Compact method
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary