Discussion :

[steph97139]

bonjour,
je fais un projet qui consiste a suivre les sauvegardes des agents d'une entreprise
je souhaiterai faire un datagridview dans lequel je ferais 4 colonnes.
la 1ère colonne doit affiché le nom des fichiers contenu dans un dossier exemple :jb971, tata 985 ...(donc je dois parcourir le dossier et relevé le nom de chaque fichier)
la 2ème colonne doit affiché la dernière date de modification de chaque fichiers
la 3ème colonne doit affiché un bouton pour chaque ligne (donc je voudrais faire des boutons qui ménera a l'ouverture des fichiers, comme un lien!!)
la 4ème colonne doit affiché le nombre d'erreur détecté dans un fichier
a la fin du datagridview je souhaiterai faire un récapitulatif (exemple : il y a tant d'agents qui on la faute n° 5 )

ce code me permet d'affiché que les noms des fichiers et la dernière date de modif

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
Imports System.IO
 
Public Class récapitulatif
 
 
    Private Sub btnCharger_Click(ByVal sender As System.Object, ByVal 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 tous 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
 
                Dim i
 
                dgvFileData.ColumnCount = 3
 
                For i = 0 To 2
 
                    dgvFileData.Rows.Add(New String() {_lst.Item(i).Name, _lst.Item(i).LastWriteTime})
 
 
 
                Next
 
                Dim nbligne As Integer
 
                Dim ligne As String() = File.ReadAllLines("C:\Users\stephen\Desktop\10dernièresligne.txt")
 
                For nbligne = ligne.Length - 11 To ligne.Length - 1
 
 
                Next nbligne
 
            Catch ex As Exception
 
                MessageBox.Show(ex.Message)
 
            End Try
 
        End If
 
    End Sub

ensuite se code me permet de récupérer une valeur dans un fichier, et la valeur en question correspond au nombre d'erreurs dans un fichier

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
Imports System.IO
 
Public Class sauvegarde
 
 
    ' lecture du fichier log
 
    Sub LectureDuFichier(ByVal fichier As String)
 
        Try
 
            ' FileOpen(1, "C:\Users\stephen\Desktop\listeagent.txt", OpenMode.Input)
 
 
            Dim lignes() As String = File.ReadAllLines("C:\Users\stephen\Desktop\10dernièresligne.txt")
 
            Dim nbrlignes As Integer
 
            'Dim affiche() As String
 
            ' Dim i As Integer
 
 
 
 
            For nbrlignes = lignes.Length - 11 To lignes.Length - 1
 
                ' MsgBox("ligne  " & nbrlignes & " : " & lignes(nbrlignes))
 
                'affiche(i) = "11"
 
 
            Next nbrlignes
 
 
            Dim myString As String = lignes(lignes.Length - 11 + 1)
 
            Dim colFailed As String
 
 
            colFailed = myString.Substring(50, 5)
 
            MsgBox("nombre d'erreurs : " & colFailed)
 
        Catch ex As Exception
 
            MsgBox("Une erreur  ....")
 
        End Try
 
    End Sub
 
End Class

[DeWaRs]

Bonjour,

Je n'ai pas bien compris, quelle est la question ?

Cordialement.

DeWaRs