Discussion :

[steph97139]

je souhaiterai remplir un DataGridview avec une liste de fichiers
c'est a dire qu'avec le nom des fichiers.txt, je voudrais remplir mon datagrid et juste en face des nom des fichiers je dois afficher la date de modification
comment faire ??

[Pol63]

dgv.Columns.Add
une fois par colonne à ajouter (il faut donner un titre et quelques paramètre ssurement comme la taille de la colonne (auto possible))

ensuite dgv.rows.add

là il y a aussi plusieurs surcharges, avec rows.add tu peux donc ajouter les valeurs d'une ligne

[steph97139]

je suis vraiment débutant, donc j'ai essayé de faire et 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
Imports System.IO
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        Dim entier As Integer
 
        Dim s0, s1, s2 As String
 
        Dim aa() As String
 
        Dim i
 
        DataGridView1.ColumnCount = 3
 
        For entier = 0 To 2
 
            DataGridView1.Columns(entier).Name = Str(entier)
        Next
 
        For Each fiche As String In Directory.GetFiles("C:\Users\stephen\Documents\Dossier perso!!")
            ' MsgBox(fiche)
            aa(fiche) = i
 
        Next
 
        Do
            s0 = i                              'les 5données 
            s1 = LineInput(1)
            s2 = LineInput(1)
            's3 = LineInput(1)
            '  s4 = LineInput(1)
 
            DataGridView1.Rows.Add(New String() {s0, s1, s2})
 
        Loop Until EOF(1)
 
            FileClose(1)
 
    End Sub
End Class

[Rainui]

Bonjour,

Je vous ai fait un petit exemple. Soit un formulaire avec un bouton "btnCharger" et un datagridview "dgvFileData" contenant 2 colonnes de type DataGridViewTextBoxColumn.
Le code du formulaire:

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
 
Imports System.IO
Public Class Form1
 
    Private Sub btnCharger_Click(sender As System.Object, e As System.EventArgs) Handles btnCharger.Click
        Dim _FileDial As New FolderBrowserDialog
        'On affiche une boite de dialogue pour sélectionner le dossier
        If _FileDial.ShowDialog = Windows.Forms.DialogResult.OK Then
            Try
                'On créé une liste pour stocker les données
                Dim _lst As New List(Of FileInfo)
                'On parcourt tout les fichiers du dossier et on les ajoute à la liste
                For Each _file As String In Directory.GetFiles(_FileDial.SelectedPath)
                    _lst.Add(New FileInfo(_file))
                Next
                'Il ne reste plus qu'à binder la liste au DGV et définir les attributs affichés
                With dgvFileData
                    .AutoGenerateColumns = False
                    .DataSource = _lst
                    .Columns(0).DataPropertyName = "Name"
                    .Columns(1).DataPropertyName = "LastWriteTime"
                End With
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End If
    End Sub
End Class

En mettant la propriété .AutoGenerateColumns à true, vous afficherez toutes les infos sur les fichiers.