Hi All,
I have code which copydocument from one Database A to another database B and then delete document from Database A , so it is simple but in server i have schedule this agent and it running very very slow and i don’t know why it runs slow i have schedule this agent every 1 hours but in one hours it only 40 to 5 document copy not more than and in databse A more than 2lks document exits , can any one help me ?
My Code is below
Dim S As New NotesSession
Dim W As NotesUIWorkSpace
Dim Db As NotesDatabase, SMArcDb As NotesDatabase
Dim SMAllotDoc As NotesDocument, ToArcDoc As NotesDocument
Dim SMAllotView As NotesView
Set Db = S.CurrentDatabase
Set SMAllotView = Db.GetView("(ArchiveAllotDetailsData)")
SMAllotView.AutoUpdate =False
Set SMArcDb = New NotesDatabase(Db.Server,"Dolphin\Live\SiteMinderAllotArc.nsf")
'Set SMArcDb = New
If SMAllotView.AllEntries.Count> 0 Then
Set SMAllotDoc = SMAllotView.GetFirstDocument
While Not SMAllotDoc Is Nothing
Set ToArcDoc = SMAllotDoc
Call SMAllotDoc.CopyToDatabase(SMArcDb)
Set SMAllotDoc = SMAllotView.GetNextDocument(SMAllotDoc)
If Not ToArcDoc Is Nothing Then
Call ToArcDoc.Remove( True )
End If
Call SMAllotView.Refresh
Wend
End If