Lotus Notes：创建一个文本文件

我正在尝试在莲花笔记中创建一个文本文件，我通过这些代理运行。代理成功运行，但文本文件不是在lotus脚本中指定的路径中创建的。Lotus Notes：创建一个文本文件

这是莲花脚本代码：

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

我在日志中已检查以及并没有错误。任何人都可以告诉上述代码中的错误，以及代理正确执行时未创建文件的原因。

来源

2016-07-25 LotusWorst

不要ü发现任何问题，在此代码@Kurt范登布兰登 – LotusWorst

@Torsten链接，您可以让我在这段代码 – LotusWorst

我只知道错误想要检查某些内容：您是否期望文件夹C：\ red中的文件为“colorMMDD.txt”？或者您是否期望该文件在文件夹c：\ red \ color中为MMDD.txt？你已经把它编码为第一种方式。 –

NotesStream不适合你，因为你只是想创建一个空的文件。
Call myStream.Close()总是删除刚刚创建的文件，如果此时它是空的。

使用传统FreeFile（）/打开/关闭，而不是：

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

来源

2016-07-26 19:34:39

它工作正常非常感谢。还有一个疑问可以告诉我们是否可以在文件中创建任何东西时打印任何东西 – LotusWorst

打印到打印机？文件填充后？在客户端运行代理？ –

不，不打印机....创建文件后，我必须写在里面作为“不同类型的颜色”。在该文件中，我已创建colors.txt – LotusWorst

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

与零个字节关闭一个流会删除相关的文件。

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

来源

2016-07-26 13:53:12 Duston

Lotus Notes：创建一个文本文件

回答

相关问题