代码如下: ''返回指定文件夹中文件的数目,传入值为被检测文件夹的硬盘绝对路径 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=nothi
作者: 来源: 时间: 17-11-23 15:57:08
关于5UCMS 您有任何需求 均可以留言给我们