List View avec parcours de fichier FTP

Version imprimable

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:

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

27/02/2013, 11h21
infosam76

Quel est votre problème exactement ? une petite capture d'écran ?
28/02/2013, 08h54
BillyBoy777

Problème contourné avec un grd plus simple a gérer merci
28/02/2013, 09h53
infosam76

On pourrait avoir un peu plus d'information sur la solution pour que cela puisse servir à d'autre.

Peux tu également marquer la discutions comme résolue.

Cette solution me convenait mieux, au lieu d'un objet ListView, j'ai utilisé un DateGridView que je connais bien. Je vous met le code si cela peux aider certaines personnes

Code:

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
 
Dim tb = Split(str, " ")
                    Dim tbdate = Split(str, ":")
                    Dim MaxG = Len(tbdate(0))
                    Dim MaxD = Len(tbdate(1))
                    Dim taille = Split(tbdate(0), " ")
                    Dim test = taille(UBound(taille) - 3)
 
                    If Mid(str, 1, 1) = "d" Then
                        'Test si l'élément est un fichier ou un dossier
                        If IsNumeric(test) Then
                            'test pour éviter l'erreur de la date qui n'a pas toujours deux caratères (1 novembre <> 01 novembre)
 
                            Grd1.Rows.Add(imgDoss, Mid(tbdate(1), 4, MaxD), taille(UBound(taille) - 3), (Mid(tbdate(0), MaxG - 9, 11) & ":" & Mid(tbdate(1), 1, 2)), "dossier")
 
                        Else
 
                            Grd1.Rows.Add(imgDoss, Mid(tbdate(1), 4, MaxD), taille(UBound(taille) - 4), (Mid(tbdate(0), MaxG - 9, 11) & ":" & Mid(tbdate(1), 1, 2)), "dossier")
 
 
                        End If
                    Else
                        If IsNumeric(test) Then
 
                            Grd1.Rows.Add(imgFich, Mid(tbdate(1), 4, MaxD), taille(UBound(taille) - 3), (Mid(tbdate(0), MaxG - 9, 11) & ":" & Mid(tbdate(1), 1, 2)), "fichier")
 
 
                        Else
 
                            Grd1.Rows.Add(imgFich, Mid(tbdate(1), 4, MaxD), taille(UBound(taille) - 4), (Mid(tbdate(0), MaxG - 9, 11) & ":" & Mid(tbdate(1), 1, 2)), "fichier")
 
 
                        End If