Download File From The Internet

This code will allow you very easily to download a file from the internet.

Form Code

Private 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
Public Function DownloadFile(URL As String, _
    LocalFilename As String) As Boolean

    Dim lngRetVal As Long
   
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
   
    If lngRetVal = 0 Then DownloadFile = True
End Function

Private Sub Form_Load()

'replace the first argument with the URL of the file you want to download,
' and the second argument with the local file you want to save this file to.


ret = DownloadFile("http://microsoft.com/library/homepage/images/ms-banner.gif", _
"c:\filename.gif")
End Sub

Go Back