Can't eliminat SaveAs dialog when automating IE

[darrellblackhawk]

I'm automating internet explorer in both VB and Visual FoxPro.

I can't seem to get rid of the file saveas dialog no matter what I do.

Any ideas?

Thanks

Example.

Private Sub Command1_Click()
Stop
Dim o As Object
Set o = CreateObject("internetexplorer.application")
o.Visible = True
o.navigate ("

http://www.google.com")

' Both these commands should suppress the dialog, but don't
done = o.document.execCommand("SaveAs", 2, "filename.htm")
done = o.document.execCommand("SaveAs", false, "filename.htm")

o.quit

End Sub