Vérifier la date de plusieurs fichiers dans un dossier

Version imprimable

Bonjours,
Tout d'abords je suis nouveau dans ce forum, espérant que c'est bien le bon endroit pour demander cela.
Voila je débute le vbs, je voulais faire un script vbs pour qu'il me renvoie une erreure (c'est pour un script nagios) si un ou plusieurs fichiers du dossier "inbox" est présent depuis plus de 10 minutes.
Pas de restriction sur le type des fichiers.

J'ai commencer avec ceci :

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
 
 
'je ne sais pas si je dois utiliser cette ligne (Set fso  = CreateObject("Scripting.FileSystemObject" ) )
 
 
dim Time 
Time = Now 
Const intOK = 0 
Const intWarning = 1 
Const intCritical = 2 
Const intUnknown = 3 
 
strFichier="C:\TradeXpress5\users\edidev\inbox"
 
If oFSO.FileExists(strFichier) = False Then
		wscript.echo "Error File " & strFile & " was not founded!"        
		wscript.quit(intError)
 
 'Récupération de la date de modification du fichier 
 dtmCreationDate = oFile.DateLastModified '
 'Comparaison entre l'heure de modif du fichier et l'heure système, si elle est supérieure à 10 minutes alors on déclanche l'erreur Critique 
 If Datediff("n", dtmCreationDate, Time) > 10 Then
 	wscript.echo "CRITICAL : Un ou plusieurs fichier date de plus de 10 minutes"
	WScript.Quit(intCritical) 
 Else 
	wscript.echo "OK : Auncun fichier parasite"
 	WScript.Quit(intOK)   
 End if 
End if
End

Voila en espérant avoir été clair, merci

Bonjour
je vous propose ceci (peut-être pas le plus astucieux)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    stRep="C:\TradeXpress5\users\edidev\inbox"
 
h= hour(now)
m= minute(now)
  mna=(h*60)+m
 
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
If  oFSO.FolderExists(stRep) Then
 For each   oFl in  oFSO.GetFolder(stRep).Files
	Set oFl =   oFSO.GetFile(oFl.name)
	dm= oFl.DateLastModified
	mn=(mid(dm,12,2) * 60) + mid(dm,15,2)
	if mn > (mna+10) then _
        z=z &  mid(dm,12,5) & "  " & ofl.name & vbCrlf
 Next
End If
 
msgbox z,," plus de 10 mn"

05/02/2013, 12h12
makiavel7

bonjour,

Désoler mais je dois mettre quoi a la place de "oFl.name" le nom du fichier ?
(car je ne vais pas connaitre les noms des fichiers
ni le nombres dailleurs):?

merci
05/02/2013, 13h04
papyxy

avez-vous testé avec mon code?
le nom des fichiers apparaitra en fin d'exécution
"ofl.name" représente tous les noms de fichier du répertoire.
05/02/2013, 14h03
makiavel7

Je vien d'essayer l'execution a la main mais je croi qu'il affeche toujours une fenetre "plus de 10 min"
05/02/2013, 15h31
papyxy

En principe, la fenêtre résultante doit afficher les fichiers qui sont présents depuis plus de 10mn!:roll:
(si j'ai bien compris)

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim stRep
Dim oFSO, ofl
 
stRep = "C:\PersoFrancis\pour voire"
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
If oFSO.FolderExists(stRep) Then
    For Each ofl In oFSO.GetFolder(stRep).Files
        If DateDiff("n", ofl.DateLastModified, Now) >= 10 Then
            MsgBox "le fichier " & ofl.Name & vbNewLine & "date de PLUS de 10 minutes"
            Else
            MsgBox "le fichier " & ofl.Name & vbNewLine & "date de MOINS de 10 minutes"
        End If
    Next
End If

07/02/2013, 15h37
makiavel7

Bonjours,

Désoler du temps avant la réponse mais j'étais malade, bref.
merci papyxy mais oui enfaite ProgElecT ma donné se que je cherchais :)

merci a vous 2