EALA FREYA FRESENA

        Dim URL As String = "http://www.irgendwas.de/dateien/irgendwas.pdf"
 
        Dim WR As Net.HttpWebRequest = Net.HttpWebRequest.Create(URL)
 
        Dim Groesse As Long = WR.GetResponse.ContentLength
 
        txtDateigröße.Text = Groesse

EALA FREYA FRESENA

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
 
        Label1.Text = ""
        Dim URL As String
        URL = TextBox1.Text
 
        Dim WR As Net.HttpWebRequest = Net.HttpWebRequest.Create(URL)
 
        Dim Groesse As Long = WR.GetResponse.ContentLength
 
        Label1.Text = Groesse
 
    End Sub

 HttpWebResponse.Close();

EALA FREYA FRESENA