Discussion :

[BillyBoy777]

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

[infosam76]

Quel est votre problème exactement ? une petite capture d'écran ?

[BillyBoy777]

Problème contourné avec un grd plus simple a gérer merci

[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.

[BillyBoy777]

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 :

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
 
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