Quote:
Originally posted by krigans
hi,
try this piece of code
declaration
Public 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
'Code
Private Sub Command1_click()
dim llRetVal as Integer
llRetVal = URLDownloadToFile(0, SourceFileName, _
TargetFileName, 0, 0)
End Sub
if any problem call back this code will download the file on clicking on the command button afte running the example check in ur system it wont pop up any message