求助:帮我看看这个程序有什么不对?
其中一段=====================================================
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.
谢谢!
