LOTUSSCRIPT /COM/OLE のクラス
例:Compact メソッド
1. 次のスクリプトは、実データの割合がデータベースのディスクスペースの 85% 未満の場合に whitespc.nsf を圧縮します。
Dim db As New NotesDatabase( "", "whitespc.nsf" )
If ( db.PercentUsed < 85 ) Then
Call db.Compact
End If
2. 次のスクリプトは、実データの割合がデータベースのディスクスペースの 90% 未満の場合に toobig.nsf を圧縮します。スクリプトはメッセージを表示して、解放されたバイト数を示します。
Dim db As New NotesDatabase( "", "toobig.nsf" )
Dim delta As Long
If ( db.PercentUsed < 90 ) Then
delta = db.Compact
Messagebox( "You've freed " & delta & " bytes" )
End If
関連項目
Compact メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集