| If you have Internet Explorer 5 or later version, you can use an API call to download a file from the Internet withouth displaying any message box. |
 Click here to copy the following block | 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
Dim errcode As Long
Dim url As String
Dim localFileName As String
url = "http://www.binaryworld.net/Main/Articles/Lang1/Cat288/Code3574/code3574.zip"
localFileName = "c:\code3574.zip"
errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
MsgBox "Download ok"
Else
MsgBox "Error while downloading"
End If |
|