LOTUSSCRIPT/COM/OLE CLASSES
Examples: CreateCopy method
1. This script creates an empty copy of the database PURCHASE.NSF on the server Athens.
Dim db, archiveDb As NotesDatabase
Set db = New NotesDatabase( "Athens","purchase.nsf" )
Set archiveDb = db.CreateCopy _
( "Athens","archive\purchase.nsf" )
2. This script archives all documents in the current database for which the age item equals "old". It calls CreateCopy only if the archive database does not exist yet. You can use the script before or after the archive database has been created.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim archiveDb As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set archiveDb = New NotesDatabase( "", "" )
archiveServer$ = ""
archiveFile$ = "archive\"+db.FileName
If (Not(archiveDb.Open(archiveServer$, _
archiveFile$))) Then
Set archiveDb = db.CreateCopy( archiveServer$, _
archiveFile$ )
End If
Set collection = db.AllDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
Call doc.CopyToDatabase( archiveDb )
Set doc = collection.GetNextDocument(doc)
Wend
See Also
CreateCopy method
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary