Discussion :

[steph97139]

bonjour,
donc je suis en plein dans un projet
qui consiste a suivre les sauvegardes des agents d'une entreprise
donc on ma posé une contrainte.
j'ai un fichier log(qui contient la sauvegarde) enregistré par exemple le 01/07/2013
on me dit que si 10 jours passe et que la sauvegarde n'a toujours pas été renouvelé, afficher un msg de rapel à l'administrateur
et faire de meme au bout d'un mois.
comment faire??


et j'ai un deuxième problème.
Donc j'ai fait une analyse dans mon fichier log.
j'ai relevé les 11dernières lignes de mon fichier pour récupérer une chaine de caractère
bin enfaite je souhaiterai le faire pour plusieurs fichier qui se trouve dans un dossier

voici le 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
Imports System.IO
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        Try
 
            FileOpen(1, "C:\Users\charle\Desktop\listeagent.txt", OpenMode.Input)
 
 
            Dim lignes() As String = File.ReadAllLines("C:\Users\charle\Desktop\10dernièresligne.txt")
 
            Dim nbrlignes As Integer
 
 
            For nbrlignes = lignes.Length - 11 To lignes.Length - 1
 
            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

[_Ez3kiel]

bonjour,
donc je suis en plein dans un projet
qui consiste a suivre les sauvegardes des agents d'une entreprise
donc on ma posé une contrainte.
j'ai un fichier log(qui contient la sauvegarde) enregistré par exemple le 01/07/2013
on me dit que si 10 jours passe et que la sauvegarde n'a toujours pas été renouvelé, afficher un msg de rapel à l'administrateur
et faire de meme au bout d'un mois.
comment faire??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    Dim LaDate As Date = IO.File.GetLastWriteTime("C:\tonPath") 'Ici on récupère la date de dernière modification de la log
        Dim delaiMax As Long
 
 
        delaiMax = 10
 
 
        If DateDiff(DateInterval.Day, LaDate, Now) > delaiMax Then 'On compare à la date du jour
 
            MsgBox("Sauvegarde expiré (" & DateDiff(DateInterval.Day, LaDate, Now) & " jours)")
 
        End If

et j'ai un deuxième problème.
Donc j'ai fait une analyse dans mon fichier log.
j'ai relevé les 11dernières lignes de mon fichier pour récupérer une chaine de caractère
bin enfaite je souhaiterai le faire pour plusieurs fichier qui se trouve dans un dossier

voici le 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
Imports System.IO
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        Try
 
            FileOpen(1, "C:\Users\charle\Desktop\listeagent.txt", OpenMode.Input)
 
 
            Dim lignes() As String = File.ReadAllLines("C:\Users\charle\Desktop\10dernièresligne.txt")
 
            Dim nbrlignes As Integer
 
 
            For nbrlignes = lignes.Length - 11 To lignes.Length - 1
 
            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

Dans le FAQ, on explique Comment lister les fichiers d'un répertoire?

Il ne reste plus qu'à l'étudier et t'en inspirer.

[steph97139]

merci pour ton aide !!