例: Close method (NotesStream - LotusScript®)

次の例は、ディレクトリ内にある通常のファイルの情報を取得します。情報の取得は、各ファイルをストリームとして開いて行います。エージェントは、ファイルごとに同じ NotesStream オブジェクトを開いたり閉じたりして再利用します。

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