次のスクリプトは byebye.nsf が 100 日間以上更新されていない場合に削除します。
Dim db As New NotesDatabase( "", "byebye.nsf" ) If ( ( Today - db.LastModified ) > 100 ) Then Call db.Remove End If