Following is a block of lotusscript code that helps one understand how a text file can be created and updated using Freefile and NotesStream concepts
As a catch, the code employs a validation mechanism that check if a given file exists or not and create it only if its not found.
Hope this helps
Function
updateLog(logText As String)
Dim session As New NotesSession
Dim stream As NotesStream
On Error GoTo errHandler
Set session = New NotesSession
REM Create
stream and display properties
Set stream =
session.CreateStream
'check if log
file exists
If Not stream.Open("C:\\ak\\log.txt") Then
'if log file
doesnot exist then create one and add a time stamp to it
Dim fileNum As Integer
fileNum% = FreeFile()
Open "/ww414/notes/ebcdicfile.txt" For Output As fileNum%
Print #fileNum%, "Created:
" ; CStr(Now)
Close fileNum%
'this should
have created the log file. see if it existis now
If Not stream.Open("C:\\ak\\log.txt") Then
'if log file
has not been created yet then let the user know of the error that blocks the
operation
print "Log file
Is inaccessible"
Exit Function
End if
End If
'update log
Call
stream.WriteText(Chr(13) & Chr(10) & CStr(Now) & " :: > " & logText)
'close stream/file open in
memory
Call stream.Close()
Exit Function
errHandler:
'display unhandled errors
print Error & " on line
" & CStr(Erl)
Exit function
End function
'now try producing some logs with the following statements
updateLog "This is a sample log"
updateLog "This is an other sample log"
updateLog "This is yet an other sample log"
updateLog "I am done logging"
updateLog "forget it bye bye"
'you can view the results on the text file or through browser as follows
