[VB.net] FTP con aruba

[unreg]

Ciao,

ho un form con un pulsante (Button1) e una progress bar (ProgressBar1)

il codice è il seguente:

Imports System.Net
Imports System.Net.WebClient

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("00000000@aruba.it", "password")
            .UploadFile("ftp://ftp.miosito.it/public/test.zip", "C:\test.zip")
        End With
    End Sub

End Class

In poche parole devo carricare il file test.zip presente in C sul server aruba nella cartella public.

Il problema è che mi da errore:

Errore del server remoto: (550) File non disponibile (ad esempio file non trovato o non accessibile)..

cosa sbaglio ?

grazie !

[unreg]

risolto in parte,

.UploadFile("ftp://ftp.miosito.it/miosito.it/public/test.zip", "C:\test.zip")

solo che non va la progress bar

aiuto

[oregon]

Non funziona perché deve essere

.UploadFileAsync(New Uri("ftp://ftp.miosito.it/miosito.it/public/test.zip"), "C:\test.zip")

[unreg]

grazie ora va bene

solo un'altra modifica, vorrei aggiungere un tasto sfoglia per selezionare il file da trasferire ed inoltre vorrei mostrare un messaggio alla fine del trasmerimento.

ma come

grazie 1000000 !

[oregon]

Originariamente inviato da unreg
grazie ora va bene

solo un'altra modifica, vorrei aggiungere un tasto sfoglia per selezionare il file da trasferire

Utilizza la classe

OpenFileDialog
http://msdn.microsoft.com/it-it/libr...openfiledialog(v=vs.80).aspx

ed inoltre vorrei mostrare un messaggio alla fine del trasmerimento.

Come hai usato l'evento UploadProgressChanged, fai lo stesso con l'evento

UploadFileCompleted

[unreg]

grazie 1000000

[unreg]

ho provato ad aggiungere

progressBar1.Invoke(new UploadFileCompletedEventHandler (MessageBox.Show("Upload avvenuto con successo!!", "Upload avvenuto.")));

ma non va

[unreg]

inoltre non riesco a far funzionare il tasto sfoglia

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim aaa As New OpenFileDialog()
        aaa.InitialDirectory = "c:\"
        aaa.Filter = "*.zip"
        If aaa.ShowDialog = DialogResult.OK Then
            selezionato.Text = aaa.OpenFile()
        End If
    End Sub

[unreg]

il tasto sfoglia è risolto:

        Dim aaa As New OpenFileDialog()
        aaa.InitialDirectory = "c:\"
        aaa.Filter = "File Zip (*.zip)|*.zip"

        If aaa.ShowDialog = DialogResult.OK Then
            selezionato.Text = aaa.FileName
        End If

[oregon]

Originariamente inviato da unreg
ho provato ad aggiungere

progressBar1.Invoke(new UploadFileCompletedEventHandler (MessageBox.Show("Upload avvenuto con successo!!", "Upload avvenuto.")));

ma non va

Cosa c'entra la ProgressBar con l'evento di completamento e il messaggio?

Hai aggiunto un metodo per il messaggio di completamento?

Hai aggiunto l'handler come per il primo evento?