Узнаем размер файла по ссылке

Точнее по прямой ссылке на файл.

Dim Кб As Double
Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(TextBox1.Text) ' Обращаемся к нашей ссылке
request.Method = "GET" ' Методом GET
Dim responce As Net.HttpWebResponse = request.GetResponse() ' Получаем ответ
Кб = Val(responce.ContentLength.ToString) / 1024 ' Размер в Кб.
Кб = Math.Round(Кб, 1)
MsgBox("Размер файла - " & Кб & " кб")

UrlLength Узнаем размер файла по ссылке

  Метки:
  Евгений
  Просмотров: 3 159
  Запись опубликована в 10:32

Есть что сказать? Тогда действуй!