Supprimer les fichiers qui ne sont pas mis à jour

Question

Est-ce que quelqu'un sait s'il est possible de supprimer un document qui n'est pas mis à jour à une certaine heure. J'essaie de faire repeupler une feuille d'inspection vierge tous les soirs à 00h01 et si personne n'entre dans l'information d'inspection pour ce jour, le formulaire pour ce jour soit effacé ainsi je n'ai pas un surplus de formulaires d'inspection vierges sauvés.

Answer 1

Oui, c'est possible. voici le code de base. Vous devez modifier l'instruction if pour refléter la période correcte.

Dim oFileObj 
Set oFileObj = Wscript.CreateObject("WScript.FileSystemObject") 
oFileObj.GetFile("File.Name") 
if oFileObj.DateLastModified < NOW then 
    oFileObj.DeleteFile("File.Name") 
end if 
Set oFileObj = Nothing