Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim clsRequest As System.Net.FtpWebRequest = DirectCast( _
          System.Net.WebRequest.Create("ftp://ftp.Server.de/data.dat"), _
          System.Net.FtpWebRequest)
        clsRequest.Credentials = New System.Net.NetworkCredential("demian", _
        "********")
        clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
        Dim bFile() As Byte = System.IO.File.ReadAllBytes("C:\data.dat")
        Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()
        clsStream.Write(bFile, 0, bFile.Length)
        clsStream.Close()
        clsStream.Dispose()
        MsgBox("FTP-Upload Sucess. Server: http://Server.de", _
          MsgBoxStyle.Information, "FTP Upload Information")
 
 
    End Sub
End Class