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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Alerte quand modification d'un dossier

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Alerte quand modification d'un dossier

n°933439
moldar
Eleveur de saltices
Posté le 29-12-2004 à 10:35:24  profilanswer
 

Bonjour !!
 
Connaitriez vous un scipt permettant d'envoyer une alerte (mail par exemple) dès qu'un sous-dossier d'un répertoire donné est modifié (pour m'avertir lorsqu'un utilisateur publie en FTP)?
 
Merci beaucoup !!
 

mood
Publicité
Posté le 29-12-2004 à 10:35:24  profilanswer
 

n°933553
pc75
Posté le 29-12-2004 à 14:04:27  profilanswer
 

Bonjour,
 
Tu peux faire ça avec du vbs.
Un petit extrait de MSDN et hop
 
Microsoft® Visual Basic® Scripting Edition
DateLastModified Property  Scripting Run-Time Reference  
Version 3  
 
 
See Also                  Applies To  
 
 
--------------------------------------------------------------------------------
 
Description
Returns the date and time that the specified file or folder was last modified. Read-only.
Syntax
object.DateLastModified  
The object is always a File or Folder object.  
 
Remarks
The following code illustrates the use of the DateLastModified property with a file:  
Function ShowFileAccessInfo(filespec)
  Dim fso, f, s
  Set fso = CreateObject("Scripting.FileSystemObject" )
  Set f = fso.GetFile(filespec)
  s = UCase(filespec) & "<BR>"
  s = s & "Created: " & f.DateCreated & "<BR>"
  s = s & "Last Accessed: " & f.DateLastAccessed & "<BR>"
  s = s & "Last Modified: " & f.DateLastModified
  ShowFileAccessInfo = s
End Function
 

n°933610
moldar
Eleveur de saltices
Posté le 29-12-2004 à 15:40:15  profilanswer
 

Merci beaucoup !!
Désolé d'abuser mais je suis une vrai quiche en vbs, comment il s'utilise ton script exactement ?
Parce que si j'ai bien compris, là, je donne un fichier en paramètre et il me sort la dernière date à laquelle il a été modifié... mais bon, comment l'utiliser dans mon cas ? :D
 
 

n°933617
pc75
Posté le 29-12-2004 à 15:55:35  profilanswer
 

Re,
Je viens de relire ta question initiale, et c'est vrai il manque des choses
 
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.GetFolder(LeRepertoire)
Set fc = f.Files
For Each f1 in fc
   DateDiff("d", date1, date2)
   Now
   f1.DateCreated
   f1.DateLastModified
Next
 
Ce bout de code permet de balayer le répertoire.
 
DateDiff("d", date1, date2) renvoie le nombre de jours entre 2 dates
 
Now contient la date du jour
 
f1.DateCreated renvoie la date de création du fichier
 
f1.DateLastModified renvoie la date de modification du fichier
 
Dans la boucle, tu peux alors tester si un des fichiers a été modifié.

n°933664
moldar
Eleveur de saltices
Posté le 29-12-2004 à 17:02:19  profilanswer
 

Merci beaucoup !! Je te tiens au courant !!


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

  Alerte quand modification d'un dossier

 

Sujets relatifs
Modification de script[Apache] URL Rewriting : dossier virtuel
modification d'une table [PROBLEME][VB] info sur modification fichier texte
Boucle : tous les fichiers d'un dossier et non un spécifique[Prog] Dossier de programmation
Recuperer date modification d'un fichierPeut on créer un dossier racine pour faire un site offline ?
script modification adresse IP 
Plus de sujets relatifs à : Alerte quand modification d'un dossier


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