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

VBS获取当前目录下所有文件夹名字的代码
VBS获取当前目录下所有文件夹名字，不包括子文件夹。我要给每个文件夹进行操作，所以最好用循环输出。测试的时候要保证当前目录下有文件夹才可

VBS读取注册表的两种方法
第一种通过wshshell对象的regreadRegValue=CreateObject("Wscript.Shell").RegRead("XXXX_XXXXXXXX_XXXXXXXXXX")Msgbox(RegValue)更多的操作可以参考这篇文章http://www.gimoo.net/article/

查看系统C盘剩余空间的VBS脚本
'说明:通过VBS脚本查看系统C盘剩下的空间'Creator:Eric1991'Date：2013-11-4SetobjWMIService=GetObject("winmgmts:")SetobjLogicalDisk=objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'")Wsc