例: GetNextDatabase method

  1. 次の LotusScript® エージェントはサーバー Snapper のすべてのデータベースを取得します。
    Sub Initialize
      Dim dbdir As New NotesDbDirectory("Snapper")
      Dim db As NotesDatabase
      Set db = dbdir.GetFirstDatabase(DATABASE)
      While Not(db Is Nothing)
        Msgbox db.Title, , db.FileName
        Set db = dbdir.GetNextDatabase
      Wend
    End Sub
  2. 次の COM を使用した Visual Basic コードはサーバー Snapper のすべてのデータベースを取得します。
    Private Sub GetNext_Click()
    Dim s As New NotesSession
    s.Initialize
    Dim dir As NotesDbDirectory
    Dim db As NotesDatabase
    Set dir = s.GetDbDirectory("Snapper")
    Set db = dir.GetFirstDatabase(NOTES_DATABASE)
    While Not (db Is Nothing)
      MsgBox db.Title, , db.FileName
      Set db = dir.GetNextDatabase
    Wend
    End Sub