Visualizzare il numero di file

Utilizziamo l'oggetto FSO per stampare a video il numero di file presenti in una deteminata 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

%>