Premetto che non funziona la ricerca....

Ho provato questo codice per contare il numero dei file.
codice:
<%
Set fileCreate = CreateObject("Scripting.FileSystemObject")
Set fileGet = fileCreate.GetFolder("percorso assouto")
Set files = fileGet.Files
numfile = 0
For Each file in files 
numfile = (numfile + 1)
Next
'Response.Write ("
Numero di foto presenti : " & numfile) 
Set fileCreate=Nothing 
Set fileGet=Nothing 
Set files=Nothing 
%>
Funziona, ma come faccio a fare contare anche i file nelle sotto cartelle?
Grazie