Upload FTP con VB.NET

[djremix]

Salve a tutti. Premettendo che son 2 gironi che giro forum, siti web, supporti, ecc .. per trovare una solzuione. Ma è stato tutto inutile. Avrei bisogno di caricare un semplice file su un server reoto via FTP. Il server (in shared hosting) è su Aruba. Ho utilizzato il seguento codice:

Dim up As New Net.WebClient
up.Credentials = New System.Net.NetworkCredential("xxxxxxxxx@aruba.it", "xxxxxxxxx")
up.UploadFile("ftp://ftp.sito.com/", "C:\" & varname & ".txt")
Me.Label1.Text = "File di testo caricato con successo sul server"

Importando

Imports System.Net
Imports System.Net.WebClient

Quando lo provo appare il seguento errore:

"Eccezzione durante una richiesta WebClient"

Avete soluzione in merito ?
Grazie in anticipo delle eventuali risposte.

[dararag]

Codice: Seleziona tutto

Private WithEvents up As New System.Net.WebClient
up.Credentials = New System.Net.NetworkCredential(user, pass)
Dim address As Uri = New Uri("ftp://qualcosa.ext/files")
Try
  up.UploadFileAsync(address, filepath)
   Catch e2 As System.Exception
  MsgBox("Invio del file non riuscito, ritentare o contattare l'amministratore di rete." & vbCrLf & "Dettagli aggiuntivi:" & e2.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Critical error")
  Me.Close()
End Try


[marcoooo]

Scusate... ma sono nuovissimo di VB.....ho la versione 2008....ma questo codice dove va inserito???? o meglio qual'e' lo step precedente???
Grazie...

[dararag]

scusami, forse sono stato troppo diretto, allora, la prima riga, la metti in cima a tutto, dopo la scritta Class Form1, tutto il resto dovresti metterlo per esempio nell'evento click di un button, ed infine dovresti creare dei gestori di evento per up, per fare in modo da gestire la fine e, se ti interessa, anche il progresso, visto che quel codice fa un upload aprendo un altro thread, quindi mentre lui fa l'upload tu puoi far fare altre cose al programma.
Quindi, per gestire il progresso dell'upload con una progressbar (che ovviamente devi creare se la vuoi usare):

Codice: Seleziona tutto

Private Sub UpdateProgressBar(ByVal sender As Object, ByVal e As UploadProgressChangedEventArgs) Handles up.UploadProgressChanged
        kilosent = (e.BytesSent / 1024 * 8).ToString(0.0)
        kilototal = (bytestosend / 1024 * 8).ToString(0.0)
        velocita = (kilosent / seconds).ToString(0.0)
        ListBox1.Items.Add(velocita)
        Label2.Text = "Status: " & kilosent & " Kb/" & kilototal & " Kb"
        Label3.Text = "Velocità upload: " & velocita & " Kbps"
        ProgressBar1.Value = kilosent * 100 / kilototal
End Sub


mentre, per gestire il completamente, facendo apparire un popup alla fine dell'upload:

Codice: Seleziona tutto

Private Sub Up_CompletedUpload(ByVal sender As System.Object, ByVal e As UploadFileCompletedEventArgs) Handles up.UploadFileCompleted
        Timer1.Enabled = False
        If number = 1 Then
            Dim somma As Long = 0
            For Each value As Long In ListBox1.Items
                somma += value
            Next
            mediav = somma / ListBox1.Items.Count
            MsgBox("Upload file terminato con successo!" & vbCrLf & "Caricati " & kilototal & " Kb in " & seconds & " secondi alla velocità media di " & mediav & " Kbps", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Fine sending")
            number = 2
        End If
        Me.Close()
End Sub