Effacer fichiers selon l'heure

Version imprimable

bonjour à tous

je dois supprimer tous les fichiers du jour et l'heure est différente de l'heure systeme

j'ai teste le code suivant mais cela efface systématiquement tous les fichiers sans tenir compte de l'heure
merci pour vos réponse

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
set shl = CreateObject("wscript.shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set Net = CreateObject("WScript.Network") 
strDirDIFFUSION="e:\DIFFUSION\6460" 
 set folder = FSO.GetFolder ("e:\DIFFUSION\6460" )
 
 
    For Each Fichier In FSO.GetFolder(strDirDIFFUSION).Files
 
	     if DateDiff ("H", Fichier.DateLastModified, TIME)<> 0 then
	         Fichier.Delete
	       End If
    Next

04/06/2012, 13h10
ProgElecT

Salut

Code:

If DateDiff ("h", Fichier.DateLastModified, TIME)<> 0 then

Citation:

je dois supprimer tous les fichiers du jour et l'heure est différente de l'heure systeme
.....
mais cela efface systématiquement tous les fichiers sans tenir compte de l'heure

Ben :calim2:, l'heure évoluant tout le temps, forcement que tous fichiers enregistrés ont comme heure DateLastModified une heure différents de l'heure system, au minimum l'heure du fichier precede forcement heure system.

Ou j'ai rien compris, possible ...
04/06/2012, 13h48
qmike

re

bonjour
merci pour ta réponse
Dans ce cas, est-il possible de dire
J'efface tous les fichiers sauf ceux crées il y a une heure par rapport à l'heure systeme
04/06/2012, 17h33
ProgElecT

Code:

If DateDiff ("h", Fichier.DateLastModified, Now)> 1 then
05/06/2012, 20h40
qmike

re

bonjour
ProgElecT merci à toi pour cette solution
qui fonctionne à merveille
du coup, mon problème est réglé
Bonne soirée