Public Sub UpdateProgressBar(ByVal sender As Object, ByVal e As _
      UploadProgressChangedEventArgs)
        If hauptform.ProgressBar1.InvokeRequired Then
            hauptform.ProgressBar1.Invoke( _
            New UploadProgressChangedEventHandler(AddressOf UpdateProgressBar), _
            sender, e)
            Exit Sub
        End If
        Dim Prozent As Integer = CInt(hauptform.ProgressBar1.Minimum + _
        ((hauptform.ProgressBar1.Maximum - hauptform.ProgressBar1.Minimum) * _
          e.ProgressPercentage) / 100)
        hauptform.ProgressBar1.Value = Prozent
        hauptform.lblProzent.Text = Prozent.ToString() & " %"
 
    End Sub
 
    Sub UploadFile()
        CreateFolder()
 
        Dim FileNum As Integer = hauptform.ListView1.Items.Count
 
        For i As Integer = 0 To FileNum - 1
            Dim client As New System.Net.WebClient()
            AddHandler client.UploadProgressChanged, AddressOf UpdateProgressBar
            With client
                .Credentials = New NetworkCredential(username, passwort)
                .UploadFileAsync(New Uri("ftp://localhost/" & Ordnername & "/" _
                  & hauptform.ListView1.Items(i).SubItems(0).Text), _
                  hauptform.ListView1.Items(i).SubItems(2).Text)
            End With
            Statusmeldung("Hochgeladen:" & vbCr & vbTab & _
              hauptform.ListView1.Items(i).SubItems(0).Text)
 
        Next i
        hauptform.ListView1.Items.Clear()
 
        hauptform.tbxURL.Text = serverWWW.ToString & "index.php?id=" & _
          Ordnername
 
    End Sub