Visualizzare il numero di file

Questo script permette di visualizzare il numero dei file presenti im una directory:

<% 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set folderObject = fso.GetFolder(Server.MapPath("\alby\")) 
Set filesObject = folderObject.Files 
i=0 
For Each file In filesObject 
i=i+1 
Next 
response.write "sono presenti: "& i & " files 
uploadati!" 
Set fileObject = Nothing 
Set folderObject = Nothing 
Set fso = Nothing 
%>