例: CreateCopy method

次のスクリプトはデータベース purchase.nsf の空のコピーをサーバー Athens に作成します。

Dim db As NotesDatabase, archiveDb As NotesDatabase
Set db = New NotesDatabase( "Athens","purchase.nsf" )
Set archiveDb = db.CreateCopy _
( "Athens","archive¥purchase.nsf" )

次のスクリプトは現在のデータベースにある age アイテムの値が old であるすべての文書をアーカイブします。スクリプトはアーカイブデータベースが存在しないときだけ CreateCopy を呼び出します。スクリプトはアーカイブデータベースの作成前でも作成後でも使用できます。

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