Lotus Notes: Erstellen einer Textdatei

Question

Ich versuche, eine Textdatei in Lotus Notes zu erstellen, die ich durch die Agenten durchlaufe. Der Agent wurde erfolgreich ausgeführt, aber die Textdatei wird nicht in dem Pfad erstellt, der im Lotus-Skript angegeben ist.

Dies ist der Lotus-Script-Code:

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 

I bis 5 Minuten eingeplant haben zu prüfen, ob es in bestimmten Ordner

enter image description here

Und auch die Privilegien beim Planen Sie eine neue Datei erstellt Ich verwendete sowohl die zweite als auch die dritte Erlaube eingeschränkte Operationen Erlaube eingeschränkte Operationen mit vollen Administratorrechten

Aber es zeigt immer noch den Ordner als leer, aber die Ordnerzeit würde geändert werden, wenn dies geplant wird.

Um es zu testen, plante ich den Agenten sowohl lokal als auch auf dem Server ausgeführt werden. Aber der Fehler ist gleich, die Textdatei wird nicht erstellt.

Das Agentenprotokoll weist keine Fehler auf.

enter image description here

Ich habe auch in den Protokollen überprüft, und es gibt keine Fehler. Kann jemand sagen, was der Fehler im obigen Code ist und warum meine Datei nicht erstellt wird, wenn der Agent korrekt ausgeführt wird.

Answer 1

NotesStream funktioniert nicht für Sie, da Sie nur eine leere Datei erstellen möchten.
Call myStream.Close() löscht immer nur gerade erstellte Datei, wenn es an diesem Punkt leer ist.

Verwendung traditioneller Free()/Öffnen/Schließen statt:

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 

Answer 2

Wenn ein Strom abgeschnitten, Eigenschaftswerte sind: • Byte 0 • IsEOS True • Position 0

einen Strom mit Null-Bytes Schließen löscht die zugehörige Datei.

Ihre Datei wird erstellt und dann gelöscht, weil sie leer ist.