Breadcrumbs

[AnoPem]

How can i use

Code: Select all

 My.Computer.Network.DownloadFile

with a progressbar to show its progress in downloading ?

[MrAksel]

You can't.

[AnoPem]

You can't.

Is there other download methods where i can use it then ?

[MrAksel]

Code: Select all

Dim req As HttpWebRequest = DirectCast(WebRequest.Create("http://www.server.com/file.txt"), HttpWebRequest)
Dim res As HttpWebResponse = DirectCast(req.GetResponse(), HttpWebResponse)
Dim stream As Stream = res.GetResponseStream()

Dim file As FileStream = New FileStream("C:\file.txt", FileMode.Create, FileAccess.Write)

ProgressBar1.Maximum = res.ContentLength
Dim Buffer As Byte() = New Byte(4095) {}
Dim count As Integer = 0
Dim max As Integer = res.ContentLength

Do While(count < max)
   Dim read = stream.Read(buffer, 0, 4096)
   file.Write(buffer, 0, read)
   count += read
   ProgressBar1.Value = count
   Application.DoEvents()
Loop

file.Close()
stream.Close()
res.Close()

I think this would work. I haven't tested it.