Alerte quand modification d'un dossier

Alerte quand modification d'un dossier - VB/VBA/VBS - Programmation

Marsh Posté le 29-12-2004 à 10:35:24    

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 !!
 

Reply

Marsh Posté le 29-12-2004 à 10:35:24   

Reply

Marsh Posté le 29-12-2004 à 14:04:27    

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
 

Reply

Marsh Posté le 29-12-2004 à 15:40:15    

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
 
 

Reply

Marsh Posté le 29-12-2004 à 15:55:35    

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é.

Reply

Marsh Posté le 29-12-2004 à 17:02:19    

Merci beaucoup !! Je te tiens au courant !!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed