Größe einer Webdatei ermitteln Eine Funktion zum Ermitteln der Dateigröße einer Datei, die sich auf einem Webserver befindet.
Autor:   Dieter Otter	Bewertung:	Views:  11.287
www.tools4vb.de	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.