例: Removing a view or folder

次の例では、ユーザーが指定したビューやフォルダをデータベースから削除します。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Set db = session.CurrentDatabase
  viewName = Inputbox$("Name of view")
  If viewName = "" Then Exit Sub
  Set view = db.GetView(viewName)
  Call view.Remove
End Sub