通过LS代码由一个ntf模板生成一个nsf

Sub Initialize()

On Error GoTo a

Dim session As New NotesSession

Dim FSO As Variant

Set FSO = CreateObject("Scripting.FileSystemObject")

'PathName是获取服务器date目录：E:\Lotus\Domino\Data

Dim PathName As String

PathName = session.GetEnvironmentString("Directory",True)

'判断在date目录下是否找到模板文件

If Not (FSO.FileExists(PathName + "\sztest.ntf")) Then

Print|没有找到模板文件!|

Exit Sub

Else

Print|找到模板文件!|

'定义NTF模板数据库

Dim ntf As New NotesDatabase("",PathName + "\sztest.ntf")

'定义新数据库

Dim newdb As NotesDatabase

'用NTF模板创建一个新的数据库至指定路径

'路径：E:\Lotus\Domino\Data\backup下新建一个Newtest.nsf

Set newdb = ntf.CreateFromTemplate("",PathName + "\backup/Newtest",False)

'设置新数据库的标题

newdb.Title = "Newsztest"

End if

Exit sub

a:

MsgBox "错误在代理agent_replace的第" & Erl & "行，描述：---" & error

End Sub