其中一段

=====================================================
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)
这个语句有错~!

有什么错?

提示什么错误??

未找到方法或数据成员！

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

WebBrowser1.Document.body.innertext
这是.net的语法罢

这个似乎不是问题，应该是可以的
Document属性对应着DOM里面的document，下面可以遍历取得的。

哦问题貌似出在这里
你的Navigate导航是向WebBrowser1发出一个转到命令，等你执行write语句的时候页面还没打开呢。就是这样

myTextFile.Write "abc" '成功
        myTextFile.Write WebBrowser1.Document.body.innerText '失败
为什么呢？
建起还是用别的写文件把.