Download ftp selon listbox

Signaler
Messages postés
98
Date d'inscription
jeudi 8 février 2007
Statut
Membre
Dernière intervention
11 janvier 2010
-
Messages postés
98
Date d'inscription
jeudi 8 février 2007
Statut
Membre
Dernière intervention
11 janvier 2010
-
Bonjour à tous j'ai besoin de votre aide en fait dans le cadre de mes projets pour mon BTS je dois créer un logiciel en VB.Net il permet après une sélection dans une listbox de transférer ceux ci dans une autre listbox. je voudrais maintenant que lorsque j'appuie sur le bouton cela me télécharge tous les fichiers présent dans la listbox voici mon code:

   'Chaîne de connexion
                Dim connectString As String = "Data Source=local\sqlexpress; Integrated Security=SSPI;" + "Initial Catalog=Base "
                'Objet connection
                Dim connection As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectString)
                'Ouverture
                connection.Open()
                Dim command As SqlClient.SqlCommand New SqlClient.SqlCommand("SELECT Lien FROM [BD] WHERE Nom '"ListPan.Text"' ", connection)
                Dim reader As SqlClient.SqlDataReader = command.ExecuteReader

                While reader.Read
                    Dim lien As String
                    lien = reader.GetString(0)
                    lien = RTrim(lien)
                    MsgBox(lien)
                    My.Computer.Network.DownloadFile _
                    ("ftp://anonymous:@192.168.0.0/" + lien, _
                    TxtDl.Text + "/" + lien, _
                    "", "", True, 500, False)
                    MsgBox("Fichiers telechargés dans " + TxtDl.Text)
                End While

Merci par avance.

3 réponses

Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
Try








For

x = 0


To

lbUrl.Items.Count - 1



'lbUrl est une listbox conenant les url des fichiers à downloader








Dim

d


As





New

System.Uri(lbUrl.Items(x))



Me

.Text =


"downloading "

& lbUrl.Items(x).tostringApplication.DoEvents()



My

.Computer.Network.DownloadFile(lbUrl.Items(x), localpath & d.LocalPath)Application.DoEvents()



Next








Me

.Text =


"ready"


lbUrl.Items.Clear()








Catch

ex


As

ExceptionMsgBox(ex.Message)



Finally








End





Try













Bonjour chez vous !
Messages postés
98
Date d'inscription
jeudi 8 février 2007
Statut
Membre
Dernière intervention
11 janvier 2010

Super merci beaucoup!
Mais je dois récupérer les url des fichiers et les afficher dans une autre listbox??
car les fichiers sont récupérer de leur nom dans la base...
et les url contiennent les données de connexion au ftp?
Messages postés
98
Date d'inscription
jeudi 8 février 2007
Statut
Membre
Dernière intervention
11 janvier 2010

S'il vous plait aidez moi! je dois présenter ce projet la semaine prochaine et je suis deçu 24h/24! je n'y arrive vraiement pas c'est juste ce qui me manque c'est frustrant!