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