Hello Friends
Please help me I am new in developer field & try developing little software I have ( search from net)following code & want to continuous download file after 30 second without Download OK or Error in DownloadThanks In Advancevb 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 Sub Command1_Click() ' Note that this file is 2M, so you might want to try with something simpler Dim errcode As Long Dim url As String Dim localFileName As String url = "http://mysite.com/data.csv" localFileName = "c:\data.csv" errcode = URLDownloadToFile(0, url, localFileName, 0, 0) If errcode = 0 Then MsgBox "Download ok" Else MsgBox "Error while downloading" End If End Sub


Reply With Quote

