'返回指定文件夹中文件的数目，传入值为被检测文件夹的硬盘绝对路径
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
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码（独立后台）...
