silent Saveas ?

[ftusa]

I want to saveas silently ! it will not prompt to user for
saveas please tell me how can I do this silently.

please do replay !


OLEObject IE

IE = CREATE OLEObject


If IE.ConnectToNewObject("InternetExplorer.Application")
<> 0 Then
Messagebox("Error:","Please check, Excel is properly
installed at this system")
destroy IE
Return
End If

IE.navigate("C:\Documents and
Settings\dhruv\Desktop\temp123.htm")
IE.visible = false

IE.Document.execCommand("SaveAs", 1, "C:\Documents and
Settings\dhruv\Desktop\foo.htm")

IE.disconnectobject()
destroy IE



-----------------------------------------------------------
--------------------------------

Hello Sir,



I am trying to use the saveas function of WebBrowser
control through OLE in
my Powerbuilder application. It work fine.

integer OLECMDEXECOPT_DODEFAULT = 0

integer OLECMDEXECOPT_PROMPTUSER = 1

integer OLECMDEXECOPT_DONTPROMPTUSER = 2

integer OLECMDEXECOPT_SHOWHELP = 3



integer OLECMDID_SAVEAS = 4





ole_web.object.Silent = true



ole_web.object.ExecWB
(OLECMDID_SAVEAS,OLECMDEXECOPT_DONTPROMPTUSER,'C:\Docum
ents and Settings\Desktop\inputtemp.htm','C:\Documents and
Settings\\Desktop\outputtemp.html')



here what I want is, that it will do all things Silently
it will not prompt
to use and I tried

and that I want to do with web browser,

and html file I am saving in html because what html file I
am getting from
powerbuilder is not perfect so I am converting it into
perfect html so that
I can be open in Excel with all colors.



URLDownloadToFile function work fine but it is not
converting html file in
proper format it will convert it in same format. Not use
full for me.



So please tell me how I can use savaas function of
WebBrowser silently
giving input and output file name.


URLDownloadToFile(0, "C:\Documents and Settings
\Desktop\temp123.htm","C:\Documents and
Settings\Desktop\ms.html", 0, 0)



It works fine





Please find two htm file which I am getting from
Powerbuilder and second I
want to convert in to required format





Please Do replay (e-mail address removed)