Lotus notes lotusnotes：创建一个文本文件

我试图在lotusnotes中创建一个文本文件，并通过代理运行该文件。代理已成功运行，但文本文件未在lotus脚本中指定的路径中创建

这是lotus脚本代码：

Option Public
Sub Initialize  
    MsgBox " Agent AccessUserList"
    On Error GoTo HandleError   
    Dim session As New NotesSession
    Dim myStream As NotesStream
    Dim TheDate As String, filename As String 
    TheDate=Format(Now(),"mmdd")    
    filename = "C:"+"\red"+"\color"+TheDate+".txt"
    MsgBox filename
    Set myStream = session.Createstream()
    MsgBox "MySTREAM2"
    Call myStream.Open(filename, "ASCII")
    MsgBox "MySTREAM3"
    Call myStream.Truncate()
    MsgBox "Entered View"

closeFile:
    Call myStream.Close()
    MsgBox "Closed"
    Exit Sub
HandleError:     
    MsgBox "Error  - " & Error &" at line number  " & Erl
    Exit Sub    
End Sub

我已安排5分钟检查它是否在指定文件夹中创建新文件

在安排时间时，我使用了第二个和第三个 允许受限操作 允许具有完全管理员权限的受限操作

但它仍然将文件夹显示为空，但当计划此文件夹时，文件夹时间将更改

为了测试它，我安排代理在本地和服务器上运行。但错误与未创建文本文件相同

代理日志没有任何错误

我也检查了日志，没有错误。有谁能告诉我上面代码中的错误是什么，以及为什么在代理正确执行时没有创建我的文件

当流被截断时，属性值为：•字节为0•IsEOS 为真•位置为0

关闭零字节的流将删除关联的文件

---

由于文件为空，正在创建并删除该文件。

NotesStream

不适合您，因为您只想创建一个空文件。

调用myStream.Close（）

如果此时文件为空，则始终删除刚刚创建的文件

改用传统的FreeFile（）/Open/Close：

Sub Initialize
    On Error GoTo HandleError   
    Dim TheDate As String
    Dim filename As String 
    Dim fileNum As Integer

    TheDate = Format(Now(),"mmdd")    
    filename = "C:\red\color" + TheDate + ".txt"
    fileNum = FreeFile
    Open filename For Output As fileNum
    Close fileNum

Finally:
    Exit Sub

HandleError:     
    MsgBox "Error  - " & Error &" at line number  " & Erl
    Resume Finally    
End Sub

---

你在Kurt Van den的代码中发现了什么问题吗Branden@Torsten链接你能让我知道这个代码中的错误吗？我只是想检查一下：你希望这个文件是C:\red文件夹中的“colorMMDD.txt”吗？或者您希望文件是c:\red\color文件夹中的MMDD.txt吗？您已经用第一种方式对其进行了编码。它工作正常。非常感谢。还有一个疑问，您能告诉我们在文件中创建任何内容时是否可以打印任何内容打印到打印机吗？文件填好之后？在客户端上运行代理？否，不在打印机上运行。。。。创建文件后，我必须在里面写“不同类型的颜色”。在我创建的文件colors.txt中，打开后立即使用打印语句将文本写入您创建的文本文件：