domino自带IO流示例

代码来自Domino帮助文档：

Sub Initialize
	On Error GoTo errhandle
	
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection
	Dim doc As NotesDocument
	
	'定义流对象
	Dim buffer As Variant
	Dim outpath As String,inpath As String
	Dim inStream As NotesStream,outStream As NotesStream
	inpath = "e:\test.doc"
	outpath = "f:\test123.doc"
	
	'获取文件流
	Set inStream = session.Createstream()
	'无法找到源数据
	If Not inStream.Open(inpath) Then
		MessageBox inPath,, "Open failed"
		Exit Sub
	End If
	'源数据内容为空
	If inStream.Bytes = 0 Then
		MessageBox inPath,, "File has no content"
		Exit Sub
	End If
	
	'定义目标数据
	Set outStream = session.Createstream()
	If Not outStream.Open(outPath) Then
		MessageBox outPath,, "Open failed"
		Exit Sub
	End If
	If outStream.Bytes <> 0 Then
		MessageBox outPath,, "File exists and has content"
		Exit Sub
	End If
	
	'写数据
	Do
		buffer = inStream.Read(32767)
		Call outStream.Write(buffer)
	Loop Until inStream.Iseos
	
	'释放资源
	Call inStream.Close()
	Call outStream.Close()
	
	Exit Sub
errhandle:
	MsgBox Erl & Error
	Exit sub
End Sub