Question

vbs 如何获取当前目录文件数量（不包括子文件夹中的）

只想获取当前目录中的文件数量

Answer 1

vbs代码如下：
'══代══码══开══始════
i=0
set fso=CreateObject("Scripting.FileSystemObject")
set fs=fso.getfolder(".").files
for each f in fs
i=i+1
next
msgbox "文件总数:"&i
'Coded By escortmnm from VBS团队
'══代══码══结══束════
说明：
使用folder对象下面的files属性，查到一个文件即可加1，最后输出结果。