| Вопрос: 3 вопроса по VB | Добавлено: 18.05.08 19:31 |
Автор вопроса:  Skarab
|
| Ответы | Всего ответов: 17 |
|
Номер ответа: 16 Автор ответа: Skarab Вопросов: 1 Ответов: 7 |
Профиль | | #16 | Добавлено: 18.05.08 20:28 |
|
Чтобы узнать размер файла:
MsgBox FileLen("C:\Risunok.bmp"
 Размер в байтах. хм...а если файл находится в инете? как например на ipicture и мне надо адрес чтоб он брал из переменной |
||
|
Номер ответа: 17 Автор ответа:  Holsten Вопросов: 5 Ответов: 100 |
Профиль | | #17 | Добавлено: 18.05.08 20:57 |
|
Option Explicit Dim ht As Object Sub aaa() Set ht = CreateObject("Microsoft.XMLHTTP"
MsgBox urlsize("http://www.inosmi.ru/media/docs/08/05/15/241379-face.jpg"
End Sub Function urlsize(url As String) As Long ht.Open "HEAD", url, False ht.send If ht.readyState = 4 Then urlsize = ht.getResponseHeader("Content-length"
End If End Function |
||