URL Download to File (Free)
By Richard Rost

3 years ago

This code will download a file from the web at whatever URL you specify and save it as a file on your hard drive. Typically used for images (PNG, JPG, etc.) but you can use it for ZIP files or whatever you choose. Place in global module.

Source

Public Declare PtrSafe 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 Public Function MyDownload(URL As String) As String Dim LocalFile As String, Result As Long LocalFile = "G:\My Drive\Test.JPG" Result = URLDownloadToFile(0, URL, LocalFile, 0, 0) If Result = 0 Then MyDownload = LocalFile Else MyDownload = "" End If End Function

Usage

Place an image control on a form and set its control source to either of these. The first option would be if you had the location of the image URL in a field called WebAddress. The second one is to hard-code the URL in the function.

=MyDownload(WebAddress)
=MyDownload("https://599cd.com/images/599cd.jpg")

Another Example

This will download a 200x200 QR code saying "599cd.com" from Google Charts and save it as C:\QRCode.PNG

URLDownloadToFile 0, "https://chart.googleapis.com/chart?chl=599cd.com&" & _ "chs=200x200&cht=qr", "C:\QRCode.PNG", 0, 0

Video

I cover this in: https://599cd.com/ImagesFromWeb
I cover this in: Barcode Seminar

Source

Usage

Another Example

Video

See Also