Function getFileLength(ByVal url As String) As Long
Dim c As Net.WebRequest = Net.WebRequest.Create(url)
Return c.GetResponse.Headers(Net.HttpResponseHeader.ContentLength)
End Function
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 93