查询当前流对象是否已经结束,只读属性
stream.EOS
下面的例子从一个流中读取字符,并转写到另外一个流中,直到流结束为止:
Do While Not stm1.EOS stm2.WriteText stm1.ReadLine & vbCrLf Loop