'返回指定文件夹中文件的数目,传入值为被检测文件夹的硬盘绝对路径
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
如对本文有疑问,
点击进行留言回复!!
网友评论