vb Stream 实时错误 '3004' 写入文件失败
Public stm As New ADODB.Stream
dim filename, content
filename = "e:\1.html"
content = "xxx"
With stm
.Type = 2 '1－二进制，2－文本
.Mode = 3 '1－读，2－写，3－读写
.Charset = "gb2312" 'utf-8
.Open
.WriteText content
.SaveToFile filename, 2 '1－不允许覆盖，2－覆盖写入
.Flush
.Close
End With
代码如下，运行提示写入文件失败，什么原因啊？
[最优解释]
楼主的代码没有问题，不过得先确定文件是否打开，如果已用fso打开，请先set nothing一下，估计楼主出错是因为上下文存在冲突。
[其他解释]
看看这个
[其他解释]
引用的ado的版本要2.5及以上
[其他解释]
Stm.Type = adTypeText
Stm.Mode = adModeReadWrite
Stm.SaveToFile "", adSaveCreateOverWrite
试过一样不好使，但是用fso WriteLine方法就好使
[其他解释]
ado是2.6 有说法是在Stream写入之前必须先fso打开文件，也不知道真假
