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
Véase también
CompactWithOptions method
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa