Hi,
Here is the code, need some modification to use-
Sub UpdateProgressBar(ByVal sender As Object, ByVal e As UploadProgressChangedEventArgs)
If progressBar1.InvokeRequired Then
progressBar1.Invoke(New UploadProgressChangedEventHandler(AddressOf UpdateProgressBar),sender, e)
Exit Sub
End If
progressBar1.Value = CInt(progressBar1.Minimum + ((progressBar1.Maximum - progressBar1.Minimum) * e.ProgressPercentage) / 100)
End Sub
Private Sub btnUpload_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click
Dim client As New System.Net.WebClient()
AddHandler client.UploadProgressChanged, AddressOf UpdateProgressBar
With client
.Credentials = New NetworkCredential( "MyFTPUsername", "MyFTPPassword")
.UploadFile("ftp://webserverurl.com/public_html/test.zip", "C:\Users\Dreadypeetje\Downloads\test.zip")
End With
End Sub