Discussion :

[airportone]

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 ?

[ced600]

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

[AlainTech]

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

Code :

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

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

[pc75]

Bonjour,

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