Lotus Notes : 텍스트 파일 만들기

Question

에이전트를 통해 실행중인 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 

나는 그것이 또한

enter image description here

그리고 권한 일정 동안 지정된 폴더에 새 파일을 작성하는지 여부를 확인하기 위해 5 분에 예약 한 :

이

는 연꽃 스크립트 코드 두 번째와 세 번째를 모두 사용했습니다. 제한된 작업 허용 전체 관리자 권한으로 제한된 작업 허용

그러나 여전히 폴더가 비어있는 것으로 표시되지만 폴더 시간은 예정대로 변경됩니다.

테스트를 위해 에이전트는 로컬뿐만 아니라 서버에서 실행되도록 예약했습니다. 그러나 오류는 텍스트 파일이 작성되지 않은 것과 같습니다.

상담원 로그에는 오류가 없습니다.

enter image description here

나뿐만 아니라 로그에 확인하고 오류가 없다. 누구든지 위의 코드에서 실수가 무엇이고 에이전트가 올바르게 실행될 때 내 파일이 생성되지 않는 이유를 알 수 있습니까? 스트림이 잘린 경우

Answer 1

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 

Answer 2

는, 속성 값은 다음과 같습니다 • 바이트는 0 • IsEOS 입니다 진정한 • 위치가 0 바이트로 연결된 파일을 스트림을 삭제합니다 닫기 0

입니다.

파일이 생성되어 비어있어 삭제되었습니다.