复制代码 代码如下:

i=0
set fso=CreateObject("Scripting.FileSystemObject")
set fs=fso.getfolder(".").files
for each f in fs
i=i+1
next
msgbox "文件总数:"&i

点赞(89)

评论列表共有 0 条评论

立即
投稿
返回
顶部