Bonjour,
Je suis sur un projet pour mon école qui voit enfin le jour sauf qu'il me manque un dernier petit détail.
En fait mon application récupère des fichiers dans ma base de données et les affiches dans un ListBox ensuite on selectionne ceux qu'on veut puis on les ajoutent dans un autre ListBox et je souhaiterais que là, lors de la validation ça me récupère sur un serveur FTP (qui est créé) les fichiers sélectionnés avec le choix du répertoire de direction.

Merci d'avance de votre aide je pourrais enfin présenter mon projet pour mes cours...
Cordialement.

J'ai récupéré ce code: Dim ftp As New Chilkat.Ftp2()
        Dim success As Boolean

        ftp.Hostname = "ftp.host.fr"
        ftp.Username = "*****"
        ftp.Password = "*****"

        ' Connect and login to the FTP server.
        success = ftp.Connect()
        If (success <> True) Then
            MsgBox(ftp.LastErrorText)
            Exit Sub
        End If

        ' Change to the remote directory where the file is located.
        ' This step is only necessary if the file is not in the root directory
        ' for the FTP account.
        success = ftp.ChangeRemoteDir("www")
        If (success <> True) Then
            MsgBox(ftp.LastErrorText)
            Exit Sub
        End If

        ' Download a file.
        Dim localFilename As String
        localFilename = "hamlet.php"
        Dim remoteFilename As String
        remoteFilename = "hamlet.php"

        success = ftp.GetFile(remoteFilename, localFilename)
        If (success <> True) Then
            MsgBox(ftp.LastErrorText)
            Exit Sub
        End If
        ftp.Disconnect()
        MsgBox("File Downloaded!")

Ce code fonctionne mais je voudrais juste qu'il me récupère les fichiers selectionnés et avoir le choix du répertoire cible..

J'ai trouvé pour le repertoire j'ai juste ajouté un listbox avec un explorateur qui recupère le chemin..maintenant me reste plus qu'à trouvé le moyen qu'il me telecharge les fichiers selectionnés merci.

une boucle sur le nombre de fichiers dans ta listbox
avec 
  success = ftp.GetFile(remoteFilename, localFilename)

salut,

faut dire aussi que t'es en vb.Net, et ton code tout la haut était un code VB6.
Passe le cap (ou pas) mais si t'es en dot net, n'utilise plus les codes VB6

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Pourtant cela fonctionnait bien...mais le second code est plus simple...il faut juste que je fasse une boucle et cela devrait sufir...

je n'arrive pas à faire la boucle pour le téléchargement...
voilà ce que j'ai:
Dim i As Integer
                For i = 0 To ListPan.Items.Count - 1
                    trans2(i) = ListPan.Items.Item(i)
                    trav2 = i
                    My.Computer.Network.DownloadFile _
                    ("ftp://utilsateur:Pass@Adress:Port/www/" + i, _
                    TxtDl.Text + "/" + i, _
                    "utilisateur", "Pass", True, 500, True)
                    MsgBox("Fichiers téléchargés!")
                Next i

Merci de votre aide..