1个回答
展开全部
遍历data下所有数据库:
Dim dbdir As NotesDbDirectory
Dim db1 As NotesDatabase
Set dbdir=ss.GetDbDirectory(server())
Set db1=dbdir.GetFirstDatabase(DATABASE)
While Not db1 Is Nothing
或是直接取ss.getdatabase
Dim dbdir As NotesDbDirectory
Dim db1 As NotesDatabase
Set dbdir=ss.GetDbDirectory(server())
Set db1=dbdir.GetFirstDatabase(DATABASE)
While Not db1 Is Nothing
或是直接取ss.getdatabase
追问
能不能任意路径
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询