'返回指定文件夹中文件的数目,传入值为被检测文件夹的硬盘绝对路径
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:254677821)!