Rubrik: HTML/Internet/Netzwerk · Internet / Browser / IE | VB-Versionen: VB2005, VB2008 | 24.10.08 |
Mit nachfolgender Funktion lässt sich schnell und ohne großen Aufwand die Dateigröße einer Datei ermitteln, die sich auf einem Webserver befindet.
Imports System.Net
''' <summary>
''' Ermittelt die Größe einer Webdatei
''' </summary>
''' <param name="sURL">URL zur Webdatei</param>
Public Function WebFileSize(ByVal sURL As String) As Long
Dim nSize As Long = -1
Try
Dim oRequest As WebRequest = WebRequest.Create(sURL)
oRequest.Method = "HEAD"
Dim oResponse As WebResponse = oRequest.GetResponse()
nSize = oResponse.ContentLength
oResponse.Close()
Catch ex As Exception
End Try
Return (nSize)
End Function