Shoutbox

Here's mine,

It's ok but it definately has problems:

1.) Will not download the file with the server doesn't send content-length header back on first responce, however it may work sometimes with a server and sometimes not, so its not reliable.

2.) Cancelling a download is a joke, then again it always seems to be when using Inet.

3.) Place any code to be executed after the download in a new sub and execute it after Me.Caption = "Download Complete"

My advice, if u dont want to be able to see speed and etc and dont want to be able to customise the transfer, deinately go with the ones above.

Edit: Help's if i attach it

quote:

---

Originally posted by Mike2
If you want to display a progress bar, then try looking at this: http://www.vbforums.com/showthread.php?t=319226

It is an auto-update program with source included, and, it displays a pbar of the download progress.

Also, put the rest of the code under the download line.

The code will continue executing after the download is finished.

---

Thank-you Mike2. It is working. I think i'll leave the progressbar out for now

quote:

---

Originally posted by RileyM
Thank-you Mike2. It is working. I think i'll leave the progressbar out for now

---

This will do your progress bar for the above method
set the progress bar max to 100 (where mobjDownload is the actually name of the object you use for download and prgDownload is the object name of the progress bar)

code:

---

Private Sub mobjDownload_DownloadProgress(ByVal ReceivedBytes As Long, ByVal TotalBytes As Long)
    prgDownload.Value = CLng(100 * (ReceivedBytes / TotalBytes))
    DoEvents
End Sub

---

quote:

---

Originally posted by Hah

quote:

---

Originally posted by RileyM
Thank-you Mike2. It is working. I think i'll leave the progressbar out for now

---

This will do your progress bar for the above method
set the progress bar max to 100 (where mobjDownload is the actually name of the object you use for download and prgDownload is the object name of the progress bar)

code:

---

Private Sub mobjDownload_DownloadProgress(ByVal ReceivedBytes As Long, ByVal TotalBytes As Long)
    prgDownload.Value = CLng(100 * (ReceivedBytes / TotalBytes))
    DoEvents
End Sub

---

---

I understand what you mean about prgDownload but not about mobjDownload. So you mean mobjDownload will become DownloadFile as in Mike2's code example above?

quote:

---

Originally posted by RileyM
I understand what you mean about prgDownload but not about mobjDownload. So you mean mobjDownload will become DownloadFile as in Mike2's code example above?

---

nah, which code have you got set up to download the file for you at the moment? Is it the liveupdate or Mike2's DownloadFile one?

quote:

---

Originally posted by Hah

quote:

---

Originally posted by RileyM
I understand what you mean about prgDownload but not about mobjDownload. So you mean mobjDownload will become DownloadFile as in Mike2's code example above?

---

nah, which code have you got set up to download the file for you at the moment? Is it the liveupdate or Mike2's DownloadFile one?

---

oh sorry, i just saw your LiveUpdate submission after i had written my previos message.

I have Mike2's code setup to download the file.

Also is there any code you can give to display download speed and amount downloaded thus far using Mike2's code example?

Thanks