Lotus Notes：创建文本文件

Question

我正尝试在 lotus notes 中创建一个文本文件，我正在通过代理运行ning。代理运行成功，但文本文件未在 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 分钟来检查它是否在指定文件夹中创建了一个新文件

enter image description here

还有调度时的特权我同时使用了第二个和第三个允许受限操作允许具有完全管理员权限的受限操作

但它仍然显示文件夹为空，但文件夹时间会在安排时更改。

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

代理日志没有任何错误。

enter image description here

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

Answer 1

When a stream is truncated, property values are: • Bytes is 0 • IsEOS is True • Position is 0

Closing a stream with zero bytes deletes the associated file.

正在创建您的文件，然后将其删除，因为它是空的。

Answer 2

NotesStream 对您不起作用，因为您只想创建一个空文件。
Call 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

Lotus Notes：创建文本文件

Lotus Notes: Create a text file

lotus-notes

lotus

lotusscript

lotus-formula

lotus-domino