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：創建一個文本文件

回答

相關問題