您当前的位置: 如题。
JS中这是这样生成的：
<script>var fso=new ActiveXObject("Scripting.FileSystemObject");
var f1=fso.createtextfile("c:\\xmldom.xml");</script>
LotusScript中要如何实现？
------解决方案--------------------
参考NotesDOMParser的SetInput方法，有举例如下：
- VB code
This agent generates DXL based on the content of a document collection.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
REM Open xml file named after current database
Dim stream As NotesStream
Set stream = session.CreateStream
filename$ = "c:\dxl\" & _
Left(db.FileName, Len(db.FileName) - 4) & "_dc.xml"
If Not stream.Open(filename$) Then
Messagebox "Cannot open " & filename$,, "Error"
Exit Sub
End If
Call stream.Truncate
REM Create document collection
Dim dc As NotesDocumentCollection
Set dc = db.AllDocuments
If dc.Count = 0 Then
Messagebox "No document in database",, "No document"
Exit Sub
End If
REM Export document collection as DXL
Dim exporter As NotesDXLExporter
Set exporter = session.CreateDXLExporter
Call exporter.SetInput(dc)
Call exporter.SetOutput(stream)
Call exporter.Process
End Sub