Verifier si la date de creation d'un dossier inferieur à une heure

Version imprimable

12/06/2012, 21h14
bat97164

Verifier si la date de creation d'un dossier inferieur à une heure

Bonjour,
Je viens vers vous tous pour un petit coup de main.
j'ai besoin sous Windows 2008 serveur de savoir si dans un répertoire TOTO les sous-dossiers aleatoir1, aleatoire2, .... ont une date de création inférieure à 1 heure.
Si un dossier est créé y'a moins d'une heure, une commande m'envoie une mail pour m'avertir.

Merci d'avance pour votre aide. je sais pas comment commencer.
12/06/2012, 22h50
ProgElecT

Salut

Rechercher dans l'aide en ligne le mot DateCreated
Où trouver l'aide en ligne pour VBScript ?
Fais un bout de code, si tu as des difficultés, mes nous le, nous pourrons alors te guider utilement.

Re bonjour,
j'ai trouver la solution a mon problème.
ci-dessous le script si ça peut vous aidez

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Rep 'Nom du répertoire à parcourir
Dim oFSO,oFld
Set oFSO = CreateObject("Scripting.FileSystemObject")
Rep = "C:\test"
 
If oFSO.FolderExists(Rep) Then
	For each oFld in  oFSO.GetFolder(Rep).SubFolders
	   Wscript.Echo oFld.Name & "  " & oFld.DateCreated
' teste la difference entre date de creation et date du jour
' m:mois, h:heure, d:jour, n:minute, s:seconde 
		if DateDiff("m",oFld.DateCreated,now) < 1 then
			Wscript.Echo "on envois un mail"
			else
			Wscript.Echo "pas de nouveau repertoire"
		end if
	Next
End If

13/06/2012, 10h36
l_autodidacte

Sauf qu'il faut mettre if DateDiff("h",oFld.DateCreated,now)>= 1 then au lieu de if DateDiff("m",oFld.DateCreated,now) < 1 thencar selon ton premier post, le dossier ne doit pas dater de plus d'une HEURE et pas un mois.