LOTUSSCRIPT /COM/OLE のクラス

例:Close メソッド
次の例は、ディレクトリ内にある通常のファイルの情報を取得します。情報の取得は、各ファイルをストリームとして開いて行います。エージェントは、ファイルごとに同じ 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

関連項目