例: Compact method (NotesDatabase - LotusScript)

次のスクリプトは、実データの割合がデータベースのディスクスペースの 85% 未満の場合に whitespc.nsf を圧縮します。
```
Dim db As New NotesDatabase( "", "whitespc.nsf" )
If ( db.PercentUsed < 85 ) Then
  Call db.Compact
End If
```
次のスクリプトは、実データの割合がデータベースのディスクスペースの 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
```