Lotus Notes：テキストファイルを作成します。

Question

エージェントを実行しているLotus Notesでテキストファイルを作成しようとしています。エージェントは正常に実行されましたが、テキストファイルは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分に予定しています

この

は蓮のスクリプトコードであります2番目と3番目の両方を使用しました 制限付き操作を許可する 完全な管理者権限で制限付き操作を許可する

しかし、まだフォルダが空であると表示されますが、フォルダ時間はスケジュールされると変更されます。

これをテストするために、私はエージェントをサーバーと同様にローカルで実行するようにスケジューリングしました。しかし、エラーはテキストファイルが作成されていない場合と同じです。

エージェントログにはエラーがありません。

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

ゼロバイトでストリームを閉じると関連するファイルを削除されています。

ファイルが作成され、空であるため削除されています。