Folder movement lotus script

Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim view As NotesView
    Dim  uname
    Dim dbDest As NotesDatabase
    Dim sourc As NotesView, dest As NotesView
    Dim vc As NotesViewEntryCollection
    Dim value1,sername,mailfile As Variant
    Dim doc1 As NotesDocument
    Dim curdb As NotesDatabase
    Dim col As NotesDocumentCollection
    Dim view1 As NotesView
   
    Set curdb=session.CurrentDatabase
    Set view1=curdb.GetView("ProfileView")
    Set doc1=view1.GetFirstDocument()
    uname=session.UserName
   
   
    Set db = session.Getdatabase(doc1.servername_d(0),doc1.databasename_d(0))
    Set view=db.GetView("($Users)")
    Set doc=view.GetDocumentByKey(uname ,True)
    If Not doc Is Nothing Then
        Set dbDest = session.GetDatabase(doc.MailServer(0 ),doc.MailFile(0),False)
        Dim dbDestview As NotesView
        Set dbDestview = dbDest.GetView("($All)")
       
        Set dbDest = session.GetDatabase("archive.polaris.co.in/Polaris","oldmailbox\versa14.it.nsf",False)
        Set col = dbDest.FTSearch("~Read~",0)
        Call col.MarkAllRead
        Msgbox "Flag get inserted in every document",,"Read_Unread Flag"
    End If