Discussion :

[djovercrash]

Bonjour à tous,

je viens solliciter votre aide ! En effet, cela fait des jours entiers (avec un peu de sommeil malgré tout...) que je cherche à afficher la liste de fichiers d'un répertoire précis dans une listeview.

J'arrive à afficher les résultats mais je n'arrive point à trier comme je le souhaite (en 3 colonnes).
Je dispose d'une colonne Nom (pour nom de fichier type: "toto.xls"), d'une colonne Emplacement (pour emplacement type: "c:\totodossier\") et la taille en Ko.

Tout apparaît dans la première colonne "Nom" et je n'arrive pas trop à comprendre les Items, et SubItems pour dispatcher correctement les informations.

Je dispose de deux TextBox (une "Chemin" ou "rep" où l'on indique le répertoire à explorer et une "Extension" ou "ext" où l'on indique l'extension du fichier à trouver) et un bouton "Explorer".

Quelqu'un pourrait-il me venir en aide s'il vous plait ou m'expliquer d'où peuvent venir mes erreurs ?

Voici mon code:

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
 
Imports System
Imports System.IO
 
Public Class Form1
 
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim rep As String = TextBox1.Text
        Dim ext As String = TextBox2.Text
        Dim search As String()
 
        search = System.IO.Directory.GetFiles(rep, ext, SearchOption.AllDirectories)
 
        If TextBox1.Text = String.Empty Then
 
            Me.Close()
 
        Else
 
            ListView1.Items.Clear()
 
            For Each File In search
 
                ListView1.Sorting = SortOrder.Ascending
 
                ListView1.Items.Add(File)
 
 
            Next
 
 
        End If
 
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        Me.Close()
 
    End Sub
 
End Class

Merci d'avance pour ceux qui pourront m'apporter de l'aide.

Steve

[azstar]

bonsoir,

voici un exemple pour remplir une listview

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
 
ListView1.View = View.Details
        ListView1.Columns.Add("Nom", 80, HorizontalAlignment.Left)
 
        ListView1.Columns.Add("Emplacement ", 80, HorizontalAlignment.Left)
 
        ListView1.Columns.Add("taille ", 80, HorizontalAlignment.Left)
 
        Dim LVI As New ListViewItem
 
        LVI.Text = "nom" 'première cellule
 
        LVI.SubItems.Add("Emplacement")     'seconde cellule
 
        LVI.SubItems.Add("taille") 'troisième cellule
 
        ListView1.Items.Add(LVI)                 'ajout de la ligne

bon courage,