vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: HTML/Internet/Netzwerk · Internet / Browser / IE   |   VB-Versionen: VB2005, VB200824.10.08
Größe einer Webdatei ermitteln

Eine Funktion zum Ermitteln der Dateigröße einer Datei, die sich auf einem Webserver befindet.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  11.269 
www.tools4vb.deSystem:  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