请问notes中如何读写文件？

Question

用script,类似VB中对文件的操作.你可以查看notes的联机帮助.以"file"为索引.

Answer 1

可以在按钮，操作，代理中使用Lotus Script
Dim session As New NotesSession 
'创建session对象
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
'取当前数据库
Set doc = New NotesDocument ( db )
'创建新文档
'您的代码
Call doc.Save( True, True ) '
'保存文档
如果是在当前文档的操作中进行读写，则代码如下
Dim ns As New notessession
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
         Set db=ns.currentdatabase
Set uidoc=ws.currentdocument
Set doc=uidoc.document
         '取得当前文档对象
         '您的代码
         ........
如果是在代理中访问文档，则
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim selection As String
Set db = s.CurrentDatabase
selection = 您的选择条件
Set collection = db.Search( selection, dateTime, 0 )
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)'您的代码
.........     Set doc = dc.GetNextDocument(doc)
Wend
End Sub我也是初学者，如说的不对，还请见谅。

Answer 2

上次有一个错误，现更正如果是在代理中访问文档，则
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim selection As String
Set db = s.CurrentDatabase
selection = 您的选择条件(如"select @date(@created())=@today",选择今天创建的所有文档)
Set dc = db.Search( selection, dateTime, 0 )
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)'您的代码
.........    Set doc = dc.GetNextDocument(doc)
Wend
End Sub如您用的是R5，请查阅Deginer帮助