LOTUSSCRIPT /COM/OLE のクラス
例:CompactWithOptions メソッド
1. 次のエージェントは、b、L、および S10 のオプションを使用して、TOOBIG.NSF を圧縮します。
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. 次のエージェントは、上記と同様のオプションを使用して、TOOBIG.NSF を圧縮します。
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
関連項目
CompactWithOptions メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集