HCL Domino - Examples: Open method - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: Open method
1. This example gets information on the normal files in a directory by opening each file as a stream. The agent reuses the same NotesStream object by opening and closing it for each file.

Sub Initialize Dim session As New NotesSession Dim stream As NotesStream Set stream = session.CreateStream files& = 0 bytes& = 0 directory$ = "C:\StreamFiles" Chdir directory$ file$ = Dir$("*.*") While file$ <> "" If Not stream.Open(path$ & file$) Then Messagebox file$,, "Open failed" Exit Sub End If files& = files& + 1 bytes& = bytes& + stream.Bytes Call stream.Close file$ = Dir$() Wend Messagebox "Number of files = " & files& & Chr(13) & _ "Total bytes = " & bytes&,, "Normal files in " & directory$ End Sub

2. This agent opens a file as a stream for reading. The user specifies the name of the file but not the extension which is .txt. The agent uses the file name for the content of the Subject item.

Sub Initialize Dim session As NotesSession Dim db As NotesDatabase Dim dc As NotesDocumentCollection Dim doc As NotesDocument Dim stream As NotesStream Dim pathname As String pathname = "c:\StreamFiles\" Set session = New NotesSession Set db = session.CurrentDatabase Set dc = db.UnprocessedDocuments Set doc = dc.GetFirstDocument Set stream = session.CreateStream REM Use name of text file as subject subject$ = Inputbox$("Name of file") pathname = pathname & subject$ & ".txt" If Not stream.Open(pathname, "ASCII") Then Messagebox pathname,, "Open failed" Exit Sub End If If stream.Bytes = 0 Then Messagebox pathname,, "File has no content" Exit Sub End If Set doc = New NotesDocument(db) Call doc.ReplaceItemValue("Form", "Main Topic") Call doc.ReplaceItemValue("Subject", subject$) Call doc.ReplaceItemValue("Body", stream.ReadText()) Call stream.Close Call doc.save(True, True) End Sub

3. This agent opens a file for writing.

Sub Initialize Dim session As NotesSession Dim db As NotesDatabase Dim dc As NotesDocumentCollection Dim doc As NotesDocument Dim stream As NotesStream Dim pathname As String pathname = "c:\StreamFiles\" Set session = New NotesSession Set db = session.CurrentDatabase Set dc = db.UnprocessedDocuments Set doc = dc.GetFirstDocument Set stream = session.CreateStream pathname = pathname & doc.GetItemValue("Subject")(0) & _ ".txt" If Not stream.Open(pathname, "ASCII") Then Messagebox pathname,, "Open failed" Exit Sub End If If stream.Bytes <> 0 Then Messagebox pathname,, _ "File already exists and has content" Exit Sub End If Call stream.WriteText(doc.GetItemValue("Body")(0)) Call stream.Close End Sub

See Also

Open method

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents