Bonjour a tous,

Je suis actuellement en stage dans une société informatique qui me demande de passer une application vb6 en vb.net.

Le problème auquel je suis confronté est l'affichage des dossiers et fichiers dans un listView(dont j'ai du mal a me servir) en plus d'avoir la possibilité de naviger dans le menu de mon FTP.
Voici le code qui me permet pour l'instant d'afficher les fichiers de mon client FTP

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
 
        Dim fwr As FtpWebRequest
        Dim LVI As New ListViewItem
 
        If RdoFTP.Checked = False And RdoSFTP.Checked = False And RdoFTPS.Checked = False Then  'test si un des rdo est coché
 
            MessageBox.Show("Veuillez sélectionner un protocole")
            Exit Sub
 
        ElseIf txtFtpHost.Text = "" Then    'test si le nom d'hôte est remplit
 
            MessageBox.Show("Veuillez indiquez l'adresse de l'hôte")
            Exit Sub
 
        ElseIf txtUserName.Text = "" Or txtPassword.Text = "" Then  'test si le nom d'utilisateur ou le mdp sont vident
 
            MessageBox.Show("Veuillez indiquez le nom de l'utilisateur et/ou le mot de passe")
            Exit Sub
 
 
        ElseIf txtFtpHost.Text <> "" And txtUserName.Text <> "" And txtPassword.Text <> "" Then 'Si tout est rempli on incrémente et on lance l'appli
 
            fwr = FtpWebRequest.Create("ftp://" & txtFtpHost.Text & "/")
            fwr.Credentials = New NetworkCredential(txtUserName.Text, txtPassword.Text)
 
        End If
 
 
        Me.Cursor = Cursors.WaitCursor
        Me.Enabled = True
 
 
        If RdoFTP.Checked = True Then
 
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
 
 
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
 
            Dim str As String = sr.ReadLine()
 
            ListView1.Clear()
 
 
 
 
            While Not str Is Nothing
 
                LVI = ListView1.Items.Add(str)
                LVI.SubItems.Add("Valeur1Champ2")
 
 
                str = sr.ReadLine()
 
            End While
 
            sr.Close()
 
            sr = Nothing
            fwr = Nothing
 
        End If
        Me.Cursor = Cursors.Default
 
    End Sub