[VBS] Comparaison de dates (résolu)
Comparaison de dates (résolu) [VBS] - VB/VBA/VBS - Programmation
Marsh Posté le 14-08-2009 à 00:10:09
Génial, ça fonctionne!
Merci beaucoup 
Va falloir que je me mette plus sérieusement au VBS moi.
Sujets relatifs:
- Menustrip à placer n'importe où [RESOLU]
- [Résolu] Commander une LED reliée au port //
- Fichier excel généré qui a une taille anormale [RESOLU]
- PhpAdmin : connexion impossible sous Wampserver [Résolu]
- [Divers][Lecture]Utilisation de la bibliothèque portmidi : Pm_Read()
- [RESOLU] htaccess, htpasswd, md5, salt, validation password par php
- [Résolu] Macro - Importation .csv en UTF-8
- [Resolu] Deziper un fichier en vbs
- Headers et headers_sent (Résolu)
Marsh Posté le 13-08-2009 à 07:10:53
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:
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