Download File From The Internet
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
|