Bonjour à tous,
J'essaie de créer un script vbs qui affichera une msgbox si leur date de modification est plus ancienne que 14 jours.
Voila ce que j'ai réussi à créer en cherchant de-ci de-là sur le net:
Citation :
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objLocalFile = objFSO.GetFile("chemin vers mon fichier" )
dtmLocalDate = objLocalFile.DateLastModified
Set heureActuelle = Now
If DateDiff(d,dtmLocalDate,heureActuelle) > 14 Then
mon action
End If
|
Je vais donc chercher mon fichier de référence
Je récupère sa date de modification
Je récupère la date du jour
Je compare la date du jour et la date de modification du fichier, si la différence est supérieure à 14 alors je déclenche mon action
Sauf que bien évidement, j'ai un problème.
Pour le moment, vbs me sort systématiquement une erreur à la 8e ligne, il n'aime pas le Now. C'est pourtant tout ce que je trouve sur le net pour récupérer la date actuelle.
Je me demande si les scripts que j'ai trouvé ne sont pas destinés à VBA?
En tout les cas, avez-vous une idée pour solutionner mon problème?
Message édité par SinDromX le 14-08-2009 à 00:10:30
