Discussion :

[qmike]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[qmike]

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

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If DateDiff ("h", Fichier.DateLastModified, Now)> 1 then

[qmike]

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