http://www.developpez.net/forums/ima...lies/salut.gif

Je cherche à faire une purge d'un répertoire en auto à partir de la date jour - 30 j.
Voici ce que j'ai actuellement, en test :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
dim DirSource,folder,f,obj
 
Set obj = CreateObject("Scripting.FileSystemObject")
DirSource="C:\PDA"
 
If obj.FolderExists(DirSource) Then
 For each obj in  obj.GetFolder(DirSource).SubFolders
 
	if (obj.datecreated - date) < 30 then
	  Wscript.Echo obj.datecreated
	  Wscript.Echo obj.name
	  Wscript.Echo (obj.datecreated-date)
	end if	
 Next
End If
ma soustraction de date ne fonctionne évidement pas (je m'en doutais un peu des le départ).

Quelqu'un aurait déjà fait tourner un script équivalent ?