Как получить размер файла, скачиваемого из интеренета.

[3eJIeHb]

1. Как получить размер файла, скачиваемого из интеренета?
2. Как получить скорость скачивания?

[3eJIeHb]

Сам разобрался.

Чтобы получить размер (в байтах) :

Код: Выделить всё

Imports System.Net

        Dim theResponse As HttpWebResponse
        Dim theRequest As HttpWebRequest

        theRequest = WebRequest.Create("http://bbs.vbstreets.ru/templates/subSilver/images/logo_phpBB.gif")
        theResponse = theRequest.GetResponse

        Dim length As Long = theResponse.ContentLength

        MsgBox(length & " байт", MsgBoxStyle.Information, "File Size")
        End

[Sebas]

а если файл 2Г ?

[3eJIeHb]

Sebas, не понял к чему ты клонишь? Если к байтам, то можно сделать проверку на кол-во символов и умножать length на 1024 до получения нужного результата

Или ты о чем-то другом?

[Gloom]

Чтобы узнать размер файла, не нужно его скачивать целиком:

Код: Выделить всё


Dim httpRequest As HttpWebRequest = WebRequest.Create("http://download.microsoft.com/download/7/b/b/7bbc9cff-1c25-4ae9-876f-b4e8f491db20/xpsp3_5512.080413-2113_ru_x86fre_spcd.iso")
httpRequest.Method = "HEAD"
Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
Console.WriteLine("File Size: {0:0.00} MB", httpResponse.ContentLength / 1048576.0F)