Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim wct As New Net.WebClient
wct.Credentials = New Net.NetworkCredential(benutzername.Text, passwort.Text)
wct.UploadString("ftp://siteadi/text.txt", RichTextBox1.Text)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim wct As New Net.WebClient
wct.Credentials = New Net.NetworkCredential(benutzername.Text, passwort.Text)
wct.DownloadString("ftp://siteadi/text.txt")
RichTextBox1.Text = wct.DownloadString("ftp://siteadi.com/text.txt")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName()
Dateiname.Text = OpenFileDialog1.SafeFileName()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
My.Computer.Network.UploadFile(TextBox1.Text, "ftp://" & FTPserver.Text & "/" + Dateiname.Text, benutzername.Text, passwort.Text)
End Sub
End Class
__________________