purge de répertoires à -30 jours

http://www.developpez.net/forums/ima...lies/salut.gif
:salut:
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:

---

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 ?

Ce forum est munis d'une magnifique fonction de recherche et plein de sujet identique au tiens ont déjà etait posté, alors ....

Je n'ai pas testé ton script mais quelque chose me saute aux yeux.
Dans

Code:

---

if (obj.datecreated - date) < 30 then

---

à moins que la date de création ne soit dans le futur, tu obtiendras toujours un nombre négatif...

Bonjour,

Pour ajouter (ou retirer) des valeurs à une date, c'est la fonction DateAdd()