asnahu

先创建后打开，可直接写入创建的文件。

asnahu

改成

URL = "http:\\www.bathome.net"
Set strIE = CreateObject("InternetExplorer.Application")
strIE.Visible = False
strIE.Navigate(URL)
Do While strIE.ReadyState <> 4
Loop
str = strIE.document.body.innerHTML
strIE.quit

Set FSO = CreateObject("scripting.filesystemobject")
set strfile = FSO.CreateTextFile("temp.txt",true,true)
strfile.write str
Set FSO = Nothing
复制代码

asnahu

网页有些unicode字符，所以需要创建unicode而不是ansi文本。