Datei HTTP-download via Internet Explorer und Script

[yes2002]

Hi,

ich würde gerne regelmäßig eine Datei aus dem Internet laden (HTTP, kein FTP).

Das ist mein Ansatz:

Sub Initialize
   Set objIE = CreateObject("InternetExplorer.Application")
   objIE.Navigate("http://www.unisyn.com/graphics/optioncommunity_blue.gif")
   Do While objIE.Busy
   Loop
   Do While objIE.Document.readyState<>"complete"
   Loop
   'objIE.ExecWB 4,2,"E\A\optioncommunity_blue.gif"
   
End Sub

Nun erscheint aber die "Speichern unter Dialog-Box". Wie kann noch mitgeben wohin gespeichert werden soll (Pfad) und das er ohne Rückfrage die Datei speichern soll.

Die Property Visible ist zu Testzwecken gesetzt.
Danke!