LOTUSSCRIPT/COM/OLE CLASSES
Examples: CompactWithOptions method
1. 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
2. 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
See Also
CompactWithOptions method
Glossary
Feedback on Help?
Help on Help
Open Full Help Window
Glossary
Feedback on Help?
Help on Help
Open Full Help Window