VB Forum / General 2 / March 2004

Hi,

The following is a code that I use to download a file from a given url
into a given fille location. If one is to copy that code, paste it on
a new vb6 moduel, and then run it (i.e., execute the subroutine Main),
the file  vbm_demo.zip  will be downloaded from the folder
http://www.vb2themax.com/vbmaximizer/files to the local C Drive.  My
question is how does one can embed a download progress measure into
this downloading process.  I managed to learn that there is a progress
event associated with the urlmon.dll, but I don't know how to make it
work.  Also, I tried to go to the project refernxes and include the
urlmon.dll in my project, but it does not seem to wotk.  I get and
error message telling me ' can not add refernce to the specidied
file'.  I believe that this inability to add the urlmon.dll to the
project is part of the problem.   Here is the code :

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
' Note that this file is 2M, so you might want to try with something
simpler
Sub Main ()
   
   Dim URL As String
   Dim localFileName As String
   URL = "http://www.vb2themax.com/vbmaximizer/files/vbm_demo.zip"
   localFileName = "c:\vbm_demo.zip"

   DownLoadAfile URL, localFileName
End Sub

Function DownLoadAfile(URL, localFileName)
   Dim errcode As Long
   errcode = URLDownloadToFile(0, URL, localFileName, 0, 0)
   If errcode = 0 Then
       MsgBox "Download ok"
   Else
       MsgBox "Error while downloading"
   End If
   DownLoadAfile = errcode
End Function



If you have any suggestions as to how I keep track of the quantity of
bytes downloaded at different point in times, then I would be greatly
appreciative if you can share it with me.

Thank you in advance

Avi