Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2263 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS] Comparaison de dates (résolu)

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBS] Comparaison de dates (résolu)

n°1914593
SinDromX
Posté le 13-08-2009 à 07:10:53  profilanswer
 

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
mood
Publicité
Posté le 13-08-2009 à 07:10:53  profilanswer
 

n°1914643
_xme_
Posté le 13-08-2009 à 09:52:15  profilanswer
 

salut
enleve le "set" devant heureActuelle ;)

n°1914998
SinDromX
Posté le 14-08-2009 à 00:10:09  profilanswer
 

Génial, ça fonctionne!
 
Merci beaucoup :)
 
Va falloir que je me mette plus sérieusement au VBS moi.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS] Comparaison de dates (résolu)

 

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) 
Plus de sujets relatifs à : [VBS] Comparaison de dates (résolu)


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR