O Παρακάτω Κώδικας κατεβάζει ένα αρχείο από το Internet και το αντιγράφει σε μία τοποθεσία του Η/Υ που εμείς επιλέξαμε. Αν δεν υπάρχει το αρχείο στο Internet επιστρέφει False διαφορετικά true.

ΣΚΟΠΟΣ αυτού του κώδικα είναι να έχουμε αυτόματες ανανεώσεις του αρχείου που βρίσκεται στο Internet με αυτό του αρχείου του Η/Υ μας της Access.

Παράδειγμα Λειτουργίας συνάρτησης

Result=DownloadFile("http://access.terapad.com/resources/13460/assets/MdbSampleFiles/AccessImages.mdb", "c:\test.mdb")
Αν δεν υπάρχει το DownloadFile επιστρέφει στην μεταβλητή Result False αλλιώς True

O Κώδικας παρακάτω που μπορείτε να αντιγράψετε σε ένα καινούργιο Module της Access.

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
Dim lngRetVal As Long
  lngRetVal = _
   URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  DownloadFile = (lngRetVal = 0)
End Function