Examples: CompactWithOptions method
- This agent compacts TOOBIG.NSF using the options b, L, and S10.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.GetDatabase("", "TooBig")
If Not db.Isopen Then
Messagebox "Could not open",, "TooBig"
Exit Sub
End If
delta& = db.CompactWithOptions("bLS10")
Messagebox delta&,, "Size difference in bytes"
End Sub
- This agent compacts TOOBIG.NSF using the same options.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.GetDatabase("", "TooBig")
If Not db.Isopen Then
Messagebox "Could not open",, "TooBig"
Exit Sub
End If
options& = CMPC_RECOVER_REDUCE_INPLACE + CMPC_NO_LOCKOUT
delta& = db.CompactWithOptions(options&, "10")
Messagebox delta&,, "Size difference in bytes"
End Sub
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.