Dim bFile() As Byte = System.IO.File.ReadAllBytes("dateipfad")

Public Function statssync()
        Dim Pfad As String
        Pfad = "ftp://host.de/dateiname.txt"
        ' set up request...
        Dim clsRequest As System.Net.FtpWebRequest = _
            DirectCast(System.Net.WebRequest.Create(Pfad), _
            System.Net.FtpWebRequest)
        clsRequest.Credentials = New System.Net.NetworkCredential( _
        "Accountname", "Passwort")
        clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
        ' read in file...
        Dim bFile() As Byte = System.IO.File.ReadAllBytes( _
          "dateipfad\dateiname.txt")
        ' upload file...
        Dim clsStream As System.IO.Stream = _
            clsRequest.GetRequestStream()
        clsStream.Write(bFile, 0, bFile.Length)
        clsStream.Close()
        clsStream.Dispose()
        'stats xml
    End Function