'扫描文件
sub scan(folder_)
Set fso=createobject("scripting.filesystemobject") 
set folder_=fso.getfolder(folder_)
set files=folder_.files
'遍历路径中的文件
for each file in files
 ext=mid(file,InStrRev(file, ".")+1)
 ext=lcase(ext)
 if ext=kuozhan then
  all_file=all_file+file+Chr(13) & Chr(10)
 end if
next
'遍历路径子文件夹
set subfolders=folder_.subfolders
for each subfolder in subfolders
 scan(subfolder)
next 
end sub'出错继续运行
on error resume next'填写数据
path=inputbox("输入路径","路径")
kuozhan=inputbox("输入想要搜索文件的扩展名","扩展名")'调用扫描
Set fso=createobject("scripting.filesystemobject") 
all_file=""
scan(path)'新建文件list.txt并写入数据
set self=fso.opentextfile(wscript.scriptfullname,1)
vbscopy=all_file
fso.CreateTextFile ("list.txt")
set ap=fso.opentextfile("list.txt",2,true)
ap.write vbscopy
ap.close'弹出提示窗口
Wscript.echo "完成任务!"'用记事本打开数据文件
set c_run=WScript.CreateObject("WScript.Shell") 
c_run.run "notepad list.txt"