Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

Upload FTP con VB.NET

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

Upload FTP con VB.NET

Messaggioda djremix » lun giu 29, 2009 10:19 am

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.
Avatar utente
djremix
Neo Iscritto
Neo Iscritto
 
Messaggi: 2
Iscritto il: ven dic 14, 2007 8:39 am

Re: Upload FTP con VB.NET

Messaggioda dararag » ven lug 03, 2009 12:38 pm

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
Maledette aziende produttrici, l'unico telefilm interessante degli ultimi tempi l'hanno interrotto alla decima puntata... e chi voleva sapere la fine?
Avatar utente
dararag
Silver Member
Silver Member
 
Messaggi: 1116
Iscritto il: mar gen 22, 2008 8:57 pm
Località: Casoria

Re: Upload FTP con VB.NET

Messaggioda marcoooo » mer ott 21, 2009 5:56 pm

Scusate... ma sono nuovissimo di VB.....ho la versione 2008....ma questo codice dove va inserito???? o meglio qual'e' lo step precedente???
Grazie...
Avatar utente
marcoooo
Neo Iscritto
Neo Iscritto
 
Messaggi: 1
Iscritto il: mer ott 21, 2009 5:53 pm

Re: Upload FTP con VB.NET

Messaggioda dararag » dom ott 25, 2009 10:26 pm

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
Maledette aziende produttrici, l'unico telefilm interessante degli ultimi tempi l'hanno interrotto alla decima puntata... e chi voleva sapere la fine?
Avatar utente
dararag
Silver Member
Silver Member
 
Messaggi: 1116
Iscritto il: mar gen 22, 2008 8:57 pm
Località: Casoria


Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 0 ospiti

Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising