Download from net

[007shahid]

How do I download files from the net using VB

[kurtsimons]

use the winsock control for or the Inet control

Or you could use the URLDownloadToFile API function.


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