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

复制代码代码如下:
i=0
set fso=CreateObject（"Scripting.FileSystemObject"）
set fs=fso.getfolder（"."）.files
for each f in fs
i=i+1
next
msgbox "文件总数:"&i