My.Computer.Network.UploadFile(FIL_ToKu, PAT_Ftp & "BM017371.008", USR_FtpKu, _
  PAW_FtpKu, False, 500, FileIO.UICancelOption.DoNothing)

    ''' <summary>
    ''' Lädt eine Datei hoch
    ''' </summary>
    ''' <param name="Ziel">Hier soll die Datei landen</param>
    ''' <param name="Datei">Diese datei wird hochgeladen</param>
    ''' <param name="UserName">Username falls erforderlich</param>
    ''' <param name="Passwort">Passwort falls erforderlich</param>
    ''' <remarks></remarks>
    Private Sub UpLoadFile(Ziel As String, Datei As String, Optional UserName _
      As String = "", Optional Passwort As String = "")
        Using web As New WebClient
            web.Credentials = New NetworkCredential(UserName, Passwort)
            AddHandler web.UploadFileCompleted, AddressOf _
              web_UploadFileCompleted
            AddHandler web.UploadProgressChanged, AddressOf _
            web_UploadProgressChanged
            web.UploadFileAsync(New Uri(Ziel), Datei)
        End Using
    End Sub
    Private Sub web_UploadFileCompleted(sender As Object, e As _
      System.Net.UploadFileCompletedEventArgs)
        'Rückgabe auswerten
        If e.Error IsNot Nothing Then
            'ein Fehler ist aufgetreten
            MessageBox.Show(e.Error.Message, "Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
        Else
            'kein Fehler
            MessageBox.Show("Fertig", "Datei upload", MessageBoxButtons.OK, _
              MessageBoxIcon.Information)
        End If
    End Sub
    Private Sub web_UploadProgressChanged(sender As Object, e As _
      System.Net.UploadProgressChangedEventArgs)
        'Fortschritt in einer Progressbar anzeigen
        ProgressBar1.Value = e.ProgressPercentage
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus