Dear all
I have create a exe file using script as below, the script is to replicate the notes database from server to local copy without launching the lotus notes. It is fine when execute in window 2000 platform but when come to window XP it fail, does any one can help me?
thank you
Dim session As New NotesSession
Dim KULdir As NotesDbDirectory
Dim locdir As NotesDbDirectory
On Error GoTo errorHandler
Dim server As String
'Set db = session.CurrentDatabase
Dim db1 As NotesDatabase
Dim db2 As NotesDatabase
session.Initialize
Set KULdir = session.GetDbDirectory("MY-KULapp001/MY/Server/PwC")
Set db1 = KULdir.OpenDatabase("MAS\TechCent\test\a.nsf", True)
Set locdir = session.GetDbDirectory("")
'Set db2 = locdir.OpenDatabase("c:\amla\a.nsf", False)
Set db2 = session.GetDatabase("", "c:\amla\a.nsf", True)
If Not db2.IsOpen Then
'MsgBox "A"
Dim replica As NotesDatabase
Set replica = db1.CreateReplica("", "c:\amla\a.nsf")
Else
'MsgBox "B"
Call db2.Replicate("MY-KULapp001/MY/Server/PwC")
End If
'MsgBox "Done"
Exit Sub
errorHandler:
MsgBox "Please connect to server or network first before clicking on this button for replication to take place"
Exit Sub
Print this page
