LOTUSSCRIPT /COM/OLE のクラス
例:CreateCopy メソッド
1. 次のスクリプトはデータベース 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" )
2. 次のスクリプトは現在のデータベースにある 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
関連項目
CreateCopy メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集