[VB.NET] - Progressione Upload FTP

[Veronica80]

ciao ragazzi!
Io uso sto codice per caricare i miei files su un server ftp:

        Dim up As New System.Net.WebClient
        up.Credentials = New System.Net.NetworkCredential("user", "pass")
        Try
            up.UploadFile("ftp://ftp.miosito.it", "F:\Prove\prova.jpg")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Volevo chiedervi...c'è un modo per visualizzare una percentuale di upload? giusto per sapere a che punto si è!

[andrew92fu]

Componenti:
Button > Button1
ProgressBar > progressBar1

Cambia i valori di FTPUsername, FTPPassword, ftp://webserverurl.com/public_html/test.zip e C:\Users\Dreadypeetje\Downloads\test.zip con i valori che servono a te! =)

Imports System.Net

Public Class Form1

    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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim client As New System.Net.WebClient()
        AddHandler client.UploadProgressChanged, AddressOf UpdateProgressBar
        With client
            .Credentials = New NetworkCredential("FTPUsername", "FTPPassword")
            .UploadFile("ftp://webserverurl.com/public_html/test.zip", "C:\Users\Dreadypeetje\Downloads\test.zip")
        End With
    End Sub

End Class