通过LS判断服务器目录下的指定数据库是否存在

最新推荐文章于 2024-03-18 17:59:28 发布

原创最新推荐文章于 2024-03-18 17:59:28 发布 · 649 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #服务器 #lotus #session #date #path

Domino 专栏收录该内容

56 篇文章

订阅专栏

本文介绍了一个用于检查Lotus Domino数据库存在的初始化脚本，包括获取邮件路径、检查特定数据库文件是否存在以及相应的消息反馈。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub Initialize()
On Error GoTo a
Dim session As New NotesSession
Dim mailpath As Variant
'下面得出的路径为E:\Lotus\Domino\Data\
mailpath = Session.GetEnvironmentString("Directory",True) &"\"

MsgBox "mailpath---:" & mailpath

Dim tmpfile As Variant
'查找date目录下的mail文件中是否有aaa.nsf
If tmpfile = Dir$(mailpath & "mail\aaa.nsf") Then
  MsgBox "数据库不存在!"
Else
  MsgBox "找到数据库了"
End If

Exit Sub
a:
MsgBox "错误在代理agent_path的第" & Erl & "行，描述：---" & Error
End Sub