How to open a view source and save it as a .txt?

[AFI247365]

I've been working on this one for some time now and have run ito a brick wall.
This is my code so far:

Dim WebBrowser As New InternetExplorer

Private Sub Command1_Click()

Dim n, pathname

n = 1

Const navOpenInNewWindow = 1

WebBrowser.Visible = False

WebBrowser.Navigate ("view-source:

http://www.tek-tips.com/"),

navOpenInNewWindow

Loop

End Sub

So i can open a browse and open the source code but i cant seem to find a way to save the file.
I have tried to look for the temp file that is made but it saved in different directoried under
C:\Windows\temopreryinternetfiles\content.ie5 and then in one of 12 different sub directories and they never apperar in just one of these directories.

i really need some help!

thanx

 

[strongm]

Webbrowser1.Document.FirstChild.OuterHTML or Webbrowser1.Document.all(0).OuterHTML are strings that contains the source. You can save these as you might any other string.