其中一段

=====================================================
Private Sub Command2_Click()
Dim fso
Dim myTextFile As TextStream

Set fso = CreateObject("Scripting.FileSystemObject")

WebBrowser1.Navigate (Text2.Text)

If Dir(Text1.Text) = "" Then
        fso.CreateFolder (Text1.Text)
End If
    Set myTextFile = fso.CreateTextFile(Text1.Text, True)
    myTextFile.write (WebBrowser1.Document.body.innertext)
    myTextFile.Close
End Sub
======================================
程序的功能是储存网页内容到txt文件中
其中text1为储存路径,比如:c:\1.txt
text2为网页地址,比如:www.


谢谢!

没有 人吗?

使用FSO我是 添加了引用的啊,但是还是无法运行

说的是
myTextFile.write (WebBrowser1.Document.body.innertext)
这个语句有错~!

未找到方法或数据成员！

什么原因啊？
昨天都没有这个错误，今天就有了！