• Home
 · 
• Internet/HTML
 · 
• Download A File From The Internet2

Download A File From The Internet2

This File Allows You To Download Files From The Internet.
The Source Code Is Fairly Easy To Use Too!

Rate Download A File From The Internet2

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Insert This In A Space In The Form
'Not Between Any Other Pieces Of Code Though
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
ret = DownloadFile("http://www.URL Of The File", _
"c:\Which Dir To Save The File To.jpg, exe etc.")