Download progress

[JonathonC]

I'm using the below code to download files through the internet in my VB app. How can I show the progress in a progress bar, I think I would have to use different code.

Dim b2() As Byte
Open WDir & "\cybot.exe" For Binary Access Write As #1
b2() = Inet1.OpenURL("[URL unfurl="true"]http://www.what-now.fsnet.co.uk/cybot/cybot.exe",[/URL] icByteArray)
Put #1, , b2()
Close #1

Thanks,
Jonathon.
It's incredible to think that before computers were invented we had to mess things up ourselves! Computer problems? Have you checked the loose nut in front of the keyboard yet?

 

[strongm]

Consider using the Execute method rather than OpenURL, and then use GetChunk in the StateChanged event.

You still can't have a proper progress bar because you don't know the file size...