复制代码 代码如下:
'返回指定文件夹中文件的数目，传入值为被检测文件夹的硬盘绝对路径
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
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！