用asp实现的获取文件夹中文件的个数的代码

　　'返回指定文件夹中文件的数目，传入值为被检测文件夹的硬盘绝对路径

　　function CountFilesNumber(folderspec)

　　Dim objfso,f,fc

　　Set objfso=CreateObject("Scripting.FileSystemObject")

　　Set f=objfso.GetFolder(folderspec)

　　Set fc=f.Files

　　CountFilesNumber=fc.Count

　　set fc=nothing

　　set f=nothing

　　set objfso=nothing

　　End Function