• Home
 · 
• Internet/HTML
 · 
• Download File From The Internet (This code will allow you very easily to download a file from the i

Download File From The Internet (This code will allow you very easily to download a file from the i

Download File From The Internet (This code will allow you very easily to download a file from the internet).

API Declarations


"URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long




Rate Download File From The Internet (This code will allow you very easily to download a file from the i

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   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://www25.brinkster.com/ihab/arabmap/so1over.gif", _
  "c:\filename.gif")
End Sub