


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Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 15