LOTUSSCRIPT /COM/OLE のクラス
例:GetNextDatabase メソッド
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
関連項目
GetNextDatabase メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集