der code sieht dazu so aus:
PHP Code:
Public Class Form1
Dim web As New Net.WebClient
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Resources.datein = "" Then
lb_auswählen.Text = "Es gibt keine Datei zum Widerherstellen!"
Else
End If
If My.Computer.Network.IsAvailable Then
Else
Console.Beep()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
suchen.ShowDialog()
tbupload.Text = suchen.FileName
speichern.Enabled = True
End Sub
Private Sub speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles speichern.Click
web.Credentials = New Net.NetworkCredential("name", "pw")
web.UploadFile("ftp://meinsserver.save", speichern.Text)
Console.Beep()
End Sub
End Class
Hoffe bei euch auf Hilfe!
