How do I download files from the net using VB
Printable View
How do I download files from the net using VB
use the winsock control for or the Inet control
Or you could use the URLDownloadToFile API function.
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
Private 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
Usage
DownloadFile "http://www.site.com/file.txt", "c:\site.txt"
'to return if download was successful:
'Dim Dl As Boolean
'Dl = DownloadFile ("http://www.site.com/file.txt", "c:\site.txt")
'If Dl = True Then
' Msgbox "Download successful"
'Else
' Msgbox "Download failed"
'End If