请问notes中如何读写文件？

[ui]

[plpliuly]

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

[ui]

感谢您的关注

[lbz2000]

可以在按钮，操作，代理中使用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

我也是初学者，如说的不对，还请见谅。

[lbz2000]

上次有一个错误，现更正

如果是在代理中访问文档，则
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帮助