Examples: Compact method (NotesDatabase - LotusScript)

  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