add progress bar to download files
hey
i used the search function because i wanted a script
to download a file and i found this
VB 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
Public 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
Private Sub Form_Load()
DownloadFile "http://www.davyquyo.be/ColorName.exe", "c:/ColorName.exe"
Shell "c:/ColorName.exe", vbNormalFocus
End Sub
my nect question is i want to add a progress bar but the one i found wxas working on a timer but i wanted the progress bar to see how many kb is left to download
so how can i see how far the progress to download the file is
can some one help me please