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
if right(rept,1)<>"\" then rept=rept & "\"

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

'lire le fichier texte, ne conserver que les dernières lignes
Set fich = fs.OpenTextFile("C:\rien.txt", 1, false) 
txt=""
lin1=fich.readline
lin2=fich.readline
do while not fich.atendofstream
lin1=lin2
lin2=fich.readline
loop
msgbox lin1,,"fichiers de type """ & extn & """ dans le répertoire " & rept
fich.close 

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