站长资源脚本专栏
vbs 获取当前目录文件数量的代码(不包括子文件夹中的)
简介复制代码 代码如下:i=0set fso=CreateObject("Scripting.FileSystemObject")set fs=fso.getfolder(".").filesfor each f in fsi=i+1nextmsgbox "文件总数:"&i
复制代码 代码如下:
i=0
set fso=CreateObject("Scripting.FileSystemObject")
set fs=fso.getfolder(".").files
for each f in fs
i=i+1
next
msgbox "文件总数:"&i
i=0
set fso=CreateObject("Scripting.FileSystemObject")
set fs=fso.getfolder(".").files
for each f in fs
i=i+1
next
msgbox "文件总数:"&i
下一篇：VBS 正则判别素数(质数)