conta i files in una directory

[Baol74]

Function GetFilesNumber(Path)
Dim Fso
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
GetFilesNumber = Fso.GetFolder(Server.MapPath(Path)).Files.Count
Set Fso= Nothing
End Function

Response.Write GetFilesNumber("/public/")