Pb repertoire FTP en vb.net Urgent!!svp

Question

bonjour,
pouriez vous m'aider car j'ai un souci pour explorer un repertoire en ftp.
voil&#224; je veu faire un logiciel FTP et donc le premiere chose est la connection(l&#224; pas de probleme)avec:
envoi du login,du passe,passage mode passif(calcul du port),commande "LIST" pour recuperer le repertoire.
la liste des fichier ce trouve dans un listview.(grace a un autre winsock)
mais voil&#224; je veu faire un double clic sur un fichier du repertoire pour en parcourir le contenu mais je n'y arrive pas surtout a recuperer les donnees pour mon listview.
soit j'ai une erreur : 425 invalide connection
ou bien :
150 opening ASCII mode data connection
(et &#231;a en reste l&#224;,mon winsock est connect&#233; mais plus aucune commande fonctionne et je n'est 
pas recupererla liste des sous dossier)


le code :



Private Sub Ltv_serveur_DoubleClick(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Ltv_serveur.DoubleClick
        Dim rep, rep2, rep_total As String
        
        If Ltv_serveur.SelectedIndices.Count > 0 Then


            Wsk_ftp.SendData("CWD " & "/" & Ltv_serveur.SelectedItems(0).Text & vbCrLf)
        End If


    End Sub
cela me renvoi au code de reponse"250"
l&#224; je fait un "PWD"


Case "250 "
    ListBox_ftp.Items.Add("cmd :  " & "PWD" & vbCrLf)
    Wsk_ftp.SendData("PWD" & vbCrLf)


qui me renvoie &#224; "257"
et l&#224; je fait une demand en mode passif pour recuperer le port ensuite je fait un "LIST"


voici le reste du code


Case "257 "
     ListBox_ftp.Items.Add("cmd :  " & "PASV" & vbCrLf)
     Wsk_ftp.SendData("PASV" & vbCrLf) 'envoi mode passif



 Case "227 " 'traitement mode passif (calcul de l'ip et du port)


        'chaine retourner: "227 Entering passive mode (81,191,4,13,9,10)."
        port = calcul_port_serveur(DONNEES, calcul_port) 'function calcul du port


         Wins_dialogue.Close()
         'ouverture du Wins_dialogue(pour affichage des resultat)
         Wins_dialogue.Connect(txt_adress.Text, port)
         'envoie de LIST
         ListBox_ftp.Items.Add("cmd :  " & "LIST" & vbCrLf)
         Wsk_ftp.SendData("LIST " & txt_rep.Text & vbCrLf)


quelqu'un voit mon probleme?
si vous voulez la source complette je peu l'envyer.


merci d'avance

jalanedemana · Answer

peux tu envoyer la source compl&#232;te j'ai l'intention de l'eesayer de mon cot&#233;

demonn · Answer

oki merci,
tu peu les prendre a cette url:

http://perso.wanadoo.fr/dbz-fiction/FTP_Demonn.zip

le code est pas tr&#233;s beau car je vien de commanc&#233; le logiciel donc je teste

demonn · Answer

je m'en sort toujours pas avec mes LIST
quelqu'un pourrait m'aid&#233; svp.
je voudrais juste parcourir l'arborescence du repertoire

Pb repertoire FTP en vb.net Urgent!!svp

3 réponses

Discussions similaires