download upload FTPRésolu

Question

Bonjour, j'utilise VB.net 
j'ai tent&#233; de faire un petit prog qui download et upload des fichier sur un FTP, mais j'ai un prob.

dans mon prog il faut selectionner le nom du fichier dans une liste box, & le prog s'occupe de ce  connect&#233; pour l'upload ou le download, cependant, d&#232;s que je s&#233;l&#233;ctionne une autre ligne que la premi&#232;re. il me met une error connection.
je pense que c'est que la listbox me revoie le nom du fichier avec une mise &#224; la ligne devand.

quelqu'un pourrai m'aider ?

PS : je cherche aussi comment on recup&#232;re l'arbor&#232;ssance des fichier d'un ftp

v'la un bout de mon prog :

Private Function download_file(ByVal url As String, ByVal chemin As String) As String
        Dim dl As New System.Net.WebClient   'on cr&#233;e un objet webclient
        Dim n As Long = Environment.TickCount 'cette variable n'est pas obligatoire, elle servira &#224; deduire le temps que le t&#233;l&#233;chargement &#224; pris
        Try
            dl.DownloadFile(url, chemin) 'la commande de telechargement de l'objet dl
            dl.Dispose() 'on libere dl
            Return "t&#233;l&#233;chargement effectu&#233; en " & ((Environment.TickCount - n) / 1000) & " secondes" 'on renvoie une string indiquant le temps de t&#233;l&#233;chargement, sous entendant par la meme occasion l'execution avec succ&#233;s du t&#233;l&#233;chargement
        Catch ex As Exception
            Return ex.Message.ToString 'si il y a une erreur, on en renvoie la description
        End Try
    End Function
Private Sub DL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DL.Click
        Dim NomFich As String
        Dim Url As String = "http://winny68_1:qwertz@winny68.ifrance.com/"
        If DownBox.SelectedIndex = -1 Then
            MsgBox("Veuillez selectionner un element de la liste")
        Else
            NomFich = DownBox.Items(DownBox.SelectedIndex) 'downbox.texte(n&#176;ligne)
        End If
        Url = Url '& NomFich
        RepDownload.Text = Url
        LabelTemps.Text = download_file(Url, RepUpload.Text & NomFich)
    End Sub
merci

winny68 · Accepted Answer

trouv&#233; !!!
la listbox rajoutait un espace devant la string de la ligne

Download upload FTP

1 réponse

Discussions similaires