用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