Set sh = WScript.CreateObject("WScript.Shell") 
Set fs = CreateObject("Scripting.FileSystemObject") 

'déterminer les paramètres
extn=inputbox("extension des fichiers ?","comptage des fichiers",".html")
rept=inputbox("chemin du répertoire à explorer ?","comptage des fichiers","c:\")
if not fs.folderExists(rept) then
msgbox "nom de répertoire non valide",,"comptage de fichiers"
wscript.quit
end if
rept=fs.getfolder(rept).shortpath
if right(rept,1)<>"\" then rept=rept & "\"
datemin1=datevalue(inputbox("date de début","comptage de fichiers","01/01/2002"))
datemax1=datevalue(inputbox("date de fin","comptage de fichiers",datevalue(datemin1)+365))
intervalle=inputbox("durée des intervalles en jours","comptage de fichiers",30)

'lancer la commande dir
sh.Run "%comspec% /c dir " & rept & "*" & extn & " /o-d /s > c:\rien.txt",0,true

result=""
nbtot=0
datemin=datemin1
datemax=datemin+intervalle
do while datemax<datemax1 '************************************

'lire le fichier texte
Set fich = fs.OpenTextFile("C:\rien.txt", 1, false) 
nbval=0
	do while not fich.atendofstream
	txt=fich.readline
	'cherche date
	if instr(txt,"/")>2 then
	txt=mid(txt,instr(txt,"/")-2,8) 
	if isdate(txt) then 
	if datevalue(txt)>datemin and datevalue(txt)<datemax then nbval=nbval+1
	end if
	end if
	loop
fich.close 
nbtot=nbtot+nbval
result=result & chr(10) & nbval & " fichiers créés de " & datemin & " à " & datemax
datemin=datemax
datemax=datemin+intervalle
loop '**********************************************************

msgbox result,,nbtot & " fichiers de type """ & extn & """ dans le répertoire " & rept

'ménage
fs.deletefile ("c:\rien.txt")
set fich=nothing
set fs=nothing
set sh=nothing