Using VBA to download a file

[Zoney]

Hi,

Using Access 2003, I need to download a file from the internet using VBA.
It's a simple url such as "http://www.server.com/filename.exe"

Any pointer to code and what is the best method of doing this please?

Many thanks.

 

[Douglas J. Steele]

I haven't actually tried downloading an executable with this code, but have
successfully used it with image files, so I don't see why it shouldn't work.

Declare Function URLDownloadToFile _
Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long _
) As Long

Function DownloadFile( _
URL As String, _
LocalFilename As String _
) As Boolean
On Error GoTo Err_DownloadFile

Dim lngRetVal As Long

lngRetVal = _
URLDownloadToFile(0, URL, LocalFilename, 0, 0)
DownloadFile = (lngRetVal = 0)

End Function


You'd use it as

Call DownloadFile "http://www.server.com/filename.exe", _
"C:\SomeFolder\filename.exe"

 

[Zoney]

Thanks a lot for that - works a treat.

Is there a way to force the Access window to regain focus whilst it is
running code or downloading?

For instance, if I start say a 10mb download, and alt-tab out whilst it is
downloading, when I alt-tab back to access the Access window doesn't display
or respond until the download has completed - it says not respnding until the
download completes.

 

[Douglas J. Steele]

The fifth argument in the API declaration (lpfnCB) is intended to be the
address of the caller's IBindStatusCallback interface, but I've never seen a
good example of how to use it from VBA.