aide pour l'utilisation de fichier
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:
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 |
