Ich hab schnell was geschrieben...
=D
Code:
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.ShowDialog()
Dim datei As String = OpenFileDialog1.FileName
RichTextBox1.Text = datei
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim datei As String = OpenFileDialog1.FileName
Dim server As String = TextBox1.Text
Dim username As String = TextBox2.Text
Dim password As String = TextBox3.Text
Dim filename As String = TextBox4.Text
My.Computer.Network.UploadFile(datei, "ftp://" & server & "/" & filename, username, password)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
du brauchst
Textbox 4mal
Label 4mal
Button 2mal
Ritchtextbox 1mal
Openfiledialog 1 mal
hier ein screen:
http://papabommelz.pa.funpic.de/blaaaa%20ftp.JPG
hoffe ich konnt dir helfen =D