Public Sub Upload()
        Dim pfad As String
        Dim datei As String
        Dim dateiname As String
        Dim open As String
        Dim requestStream As Stream = Nothing
        Dim fileStream As FileStream = Nothing
        Dim uploadResponse As FtpWebResponse = Nothing
        Anzeigebereich.Text = Anzeigebereich.Text & "   " & _
          My.Settings.Benutzer.ToString & " " & DateTime.Now.ToString
 
 
        pfad = Application.StartupPath
        dateiname = TextBox1.Text & TextBox2.Text & TextBox3.Text & _
          TextBox4.Text & TextBox5.Text & ".ter"
        datei = "/text/" & dateiname & "/"
        open = pfad & datei
        Try
            Dim uploadRequest As FtpWebRequest = WebRequest.Create( _
              My.Settings.server)
            uploadRequest.Method = WebRequestMethods.Ftp.UploadFile
            uploadRequest.Credentials = New NetworkCredential( _
              My.Settings.serverbenutzer, My.Settings.serverpasswort)
 
            ' UploadFile hat keinen suport für http
            ' proxy deaktivieren
            uploadRequest.Proxy = Nothing
 
            requestStream = uploadRequest.GetRequestStream()
            fileStream = File.Open(open, FileMode.Open)
 
            Dim buffer(1024) As Byte
            Dim bytesRead As Integer
            While True
                bytesRead = fileStream.Read(buffer, 0, buffer.Length)
                If bytesRead = 0 Then
                    Exit While
                End If
                requestStream.Write(buffer, 0, bytesRead)
            End While
 
            ' den request schliessen bevor dem holen von response.
            requestStream.Close()
 
            uploadResponse = uploadRequest.GetResponse()
            Console.WriteLine("Upload fertig.")
        Catch ex As UriFormatException
            Console.WriteLine(ex.Message)
        Catch ex As IOException
            Console.WriteLine(ex.Message)
        Catch ex As WebException
            Console.WriteLine(ex.Message)
        Finally
            If uploadResponse IsNot Nothing Then
                uploadResponse.Close()
            End If
            If fileStream IsNot Nothing Then
                fileStream.Close()
            End If
            If requestStream IsNot Nothing Then
                requestStream.Close()
            End If
        End Try
    End Sub
End Class