Possibilité de checker quand un fichier est modifié

Version imprimable

26/03/2010, 08h53
fabibi001

Possibilité de checker quand un fichier est modifié

Bonjour le forum,

Voici mon problème.

Je cherche un moyen de voir automatique quand un fichier est mis à jour.

En clair, mon fichier est toujours le même mais la date d'enregistrement change normalement tous les jours car le fichier est écrasé par un nouveau, chaque jour.

Je souhaiterais savoir s'il est possible de mettre en place un script que je lance le matin en arrivant et qui va checker de lui-même toutes les 15 min et ensuite qui me prévient quand le fichier est updaté.

Pensez-vous que cela soit possible ?
26/03/2010, 13h40
fabibi001

J'ai peut-être simple ...

Est-il possible de vérifier que la date du fichier = date du jour ?

Et si c'est le cas, alors recevoir un message box : avec le nom du fichier et la date de modification.
26/03/2010, 14h39
pc75

Bonjour,

Regarde du côté de l'objet FileSystemObject et notamment la méthode GetFile() et la propriété DateLastModified.

J'ai finalement trouvé une solution à mon problème.

Je poste la réponse ici pour ceux que ça pourrait intéresser.

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
Option Explicit
 
Const cstFile = "C:\Fichiers\Archives\lol.txt"
 
Dim objFso, objFile, objExplorer1, WshShell 
Dim curTime, Flag
 
curTime = Now
Flag = 0
 
set WshShell = CreateObject("WScript.Shell")
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objExplorer1 = CreateObject("InternetExplorer.Application")
 
Do
   If objFso.FileExists(cstFile) Then
      Set objFile = objFso.GetFile(cstFile)
      If DatePart("d",objFile.DateLastModified) = DatePart("d",Date) Then 
         Flag = 1
         'call function file found
         '....
         Exit Do
      End If
   End If
   WScript.Sleep(60) 'wait 15 minutes
Loop
If Flag = 1 Then MsgBox " " & vbCrlf & _
	 "Name : " & oFl.Name & vbCrlf & _
	 " " & vbCrlf & _
	 "DateLastModified : " & oFl.DateLastModified
 
Set objFile = Nothing
Set objFso = Nothing