Größe einer Webdatei ermitteln Eine Funktion zum Ermitteln der Dateigröße einer Datei, die sich auf einem Webserver befindet.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  11.920
https://www.tools4vb.com	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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