Created on Feb 12, 2008, 2:08 PM by 9notes
ถ้าเป็น loop ของ database บน server ก็ตามนี้ครับ Dim dbdir As New NotesDbDirectory("ServerName")
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)
While Not(db Is Nothing)
Msgbox db.Title, , db.FileName
Set db = dbdir.GetNextDatabase
Wend ถ้าเป็น l
Read More
|