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 :
ma soustraction de date ne fonctionne évidement pas (je m'en doutais un peu des le départ).
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
Quelqu'un aurait déjà fait tourner un script équivalent ?
Partager