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
or
Product Usability
?
Help on Help
All Help Contents
Glossary