vb Stream 实时异常 '3004' 写入文件失败

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

代码如下，运行提示写入文件失败，什么原因啊？

[解决办法]
看看这个
[解决办法]
引用的ado的版本要2.5及以上
[解决办法]
楼主的代码没有问题，不过得先确定文件是否打开，如果已用fso打开，请先set nothing一下，估计楼主出错是因为上下文存在冲突。