Lotus notes Lotus Notes-将本地副本添加到复制页面

我正在使用LotusScript创建一个本地副本，并将其添加到复制和同步页面。这是我的密码：

Dim uiws As New notesuiworkspace
Dim session As NotesSession
Dim db As NotesDatabase
Dim replica As NotesDatabase
Dim server As String
Dim dbname As String
Set Session = New NotesSession
Set db = session.CurrentDatabase
server = db.Server
dbname = db.FilePath
Set db = New NotesDatabase( "", "" )
Call db.Open(server , dbname )
If db.IsOpen Then
    Set replica = New NotesDatabase("","")
    If replica.OpenByReplicaID( "", db.ReplicaID ) Then
        Print( replica.Title & " already has a local replica" )
    Else
        Set replica = db.CreateReplica( "", "C:\Data\Notes")
        Print "Creating replica of C:\Data\Notes"
        Call replica.Replicate( db.Server)

        Call uiws.AddDatabase(server,dbname)
        Call uiws.AddDatabase("",replica.FilePath)

    End If
Else
    Print "Unable to find database " + dbnames + " on server " + ServerName
End If 

---

复制副本已成功创建，但未添加到复制页面。我可以做些什么更改以实现这一点？

那么在您的C:驱动器上创建了一个.nsf？您的所有其他本地数据库都在c:\data\notes中吗？（传统上是c:\notes\data，但您的情况可能会有所不同。）工作区中是否有本地副本的磁贴？