I need to create a program that create a new replica of dircat.nsf (directory catalog) on the users’ local machine from the server and add this on the users’ replicator page.
Here is my code.
'***************************************
Dim ws as New NotesUIWorkspace
Dim dircat as NotesDatabase
Dim replica as NotesDatabase
'get the database from the server
Set dircat = New NotesDatabase(serverName$,"dircat.nsf")
'add the server’s dircat to the users workspace
Call ws.AddDatabase(serverName$ ,"dircat.nsf")
'create a replica on the users local machine
Set replica = dircat.CreateReplica("","dircat.nsf")
'add the new replica of dircat to the users workspace
Call ws.AddDatabase("","dircat.nsf")
'make it replica (again, hopefully add to the replica page)
Call replica.Replicate( servername$ )
'***************************************
However this does not result in adding the database on to the replicator page.
I’ve got the idea from the following web site:
http://searchdomino.techtarget.com/expert/KnowledgebaseAnswer/0,289625,sid4_gci1211710,00.html
If anyone knows how to make this work or let me know the alternatives, it will be greatly appreciated.
Thanks in advance.