Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim dc As NotesDocumentCollection    
    Set db = session.CurrentDatabase
    Dim db2 As NotesDataBase
    Dim doc As NotesDocument
    Dim newdoc  As NotesDocument
    Set db2 = session.Getdatabase("B/i", "O\r\G.nsf")
    Set dc=db.AllDocuments
    
    For i=1 To dc.count
        Set doc = dc.GetNthDocument(i)    
        Set newdoc=db2.CreateDocument    
        Call doc.CopyAllItems(newdoc,1)
        newdoc.UniversalID=doc.UniversalID
        Call newdoc.Save(True,False)
        Print doc.UniversalID & "  " & i
    Next
End Sub

Sub Click(Source As Button)
    Dim session As New NotesSession    
    Dim db As NotesDatabase, workdb As NotesDatabase
    Dim view As NotesView
    Dim doc As NotesDocument, newdoc As NotesDocument
    Dim linksDB As NotesDatabase
    Dim Agent As NotesAgent
    Dim docRequest As NotesDocument
    Dim item As NotesItem
    Dim paramid As String
    Dim server As String
    Set ns=New NotesSession
    Dim viewlog As NotesView
    Dim id_curdoc As String     
    '
    Dim dc As NotesDocumentCollection
    Dim ftdoc As notesdocument
    Dim  ftnewdoc As  NotesDocument
    Dim  nextftdoc As  NotesDocument
    
    On Error Goto Errh
    Set db = session.CurrentDatabase
    server = db.Server
    Set view=db.GetView("all doc")
    Set workdb = New NotesDatabase( server, "docobor\BD1.nsf" )
    Dim i As Double
    i=0
    Set doc = view.GetFirstDocument
    While Not (doc Is Nothing)
        
        Set newdoc=workdb.CreateDocument        
        Call doc.CopyAllItems(newdoc,1)
        newdoc.UniversalID=doc.UniversalID
        Call newdoc.Save(True,False)
        
        Print doc.UniversalID & "  " & i
        i=i+1
        
        Set nextdoc = view.getnextdocument(doc)
        Set doc=nextdoc
        Set nextdoc=Nothing
        'Print doc.UniversalID  & doc.header(0)
    Wend
    
    
    Exit Sub
Errh:    
    '
    Print Error & | in line | & Erl(), 64, |Lotus Notes (| & Lsi_info(2) & |)|
    'Goto nextDoc
    'Exit Sub
End Sub