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)+2*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 nbmax=0 datemin=datemin1 datemax=datemin+intervalle do while datemax2 then txt=mid(txt,instr(txt,"/")-2,8) if isdate(txt) then if datevalue(txt)>datemin and datevalue(txt)

" & nbval & " fichiers créés de " & datemin & " à " & datemax datemin=datemax datemax=datemin+intervalle loop '********************************************************** result="
Les " & nbtot & " fichiers de type """ & extn & """ du répertoire " & rept & "
" & result & "" 'mettre à l'échelle txt=result do while instr(txt,"@")>0 nb=mid(txt,instr(txt,"@")+1,instr(txt,"#")-instr(txt,"@")-1)*500/nbmax txt=left(txt,instr(txt,"@")-1) & nb & right(txt,len(txt)-instr(txt,"#")) loop 'créer le fichier de résultats Set fichr = fs.OpenTextFile("C:\rien.html", 2, true) fichr.write txt fichr.close sh.run "c:\rien.html" 'msgbox result,,nbtot & " fichiers de type """ & extn & """ dans le répertoire " & rept 'ménage fs.deletefile ("c:\rien.txt") set fich=nothing set fichr=nothing set fs=nothing set sh=nothing