UrlDownloadToFile in Access 2010 – Sub or Function not Defined

by

You’ll need to declare this WinAPI function in order to call it from procedures in your code.

From HERE

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 
    If Dir(LocalFileName) <> vbNullString Then 
        DownloadFile = True
    End If
End If
End Function

Private Sub Form_Load()
If Not DownloadFile("http://www.ex-designz.net", "c:\\photogallery.asp") Then
    MsgBox "Unable to download the file, or the source URL doesn't exist."
End If
End Sub

More Related Contents:

  1. Prevent enabling of shift bypass – Access 2010
  2. How does one decompile and recompile a database application?
  3. What are the rules governing usage of parenthesis in VBA function calls?
  4. Autonumber value of last inserted row – MS Access / VBA
  5. Is it possible to pass parameters programmatically in a Microsoft Access update query?
  6. Code to loop through all records in MS Access
  7. Bang Notation and Dot Notation in VBA and MS-Access
  8. Difference between Microsoft.Jet.OleDb and Microsoft.Ace.OleDb
  9. How do I force VBA/Access to require variables to be defined?
  10. Why is my query not updateable?
  11. VBA: Difference in two ways of declaring a new object? (Trying to understand why my solution works)
  12. How to diagnose MS access crashes
  13. Equivalent cURL in VBA?
  14. How do I access the selected rows in Access?
  15. Run-time error ‘3061’. Too few parameters. Expected 1. (Access 2007)
  16. VBA procedure to import csv file into access
  17. Transform multiple rows into columns with unique key
  18. how to show query results in a datasheet in the same form?
  19. FileDialog doesn’t work
  20. Access VBA: Find max number in column and add 1
  21. MS Access prepared statements
  22. Create sequential ID value based on the year that a record is added
  23. Null values for variables in VBA
  24. Using a centralized VBA module in multiple Access databases
  25. How to execute a query in ms-access in VBA code?
  26. How to add a menu item to the default right click context menu
  27. VBA – Run Time Error 3271 using DAO object
  28. Trouble with InputBoxes
  29. Get Name of Current VBA Function
  30. Non-web SQL Injection

Leave a Comment