Private Sub UploadFTP(ByVal Datei As String, _
      ByVal Dateiname As String, _
      ByVal Ftp As String, _
      ByVal Benutzername As String, _
      ByVal Passwort As String)
 
        ' WebClient
        Upload = New Net.WebClient
 
        ' URL mit Zieldatei
        Dim url As String = Ftp & IIf(Ftp.EndsWith("/"), "", "/") & Dateiname
 
        ' Anmeldedaten am FTP-Server
        Upload.Credentials = New Net.NetworkCredential(Benutzername, Passwort)
 
        ' Datei asnychron uploaden
        Upload.UploadFileAsync(New Uri(url), Datei)
    End Sub