'扫描文件
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"
获取所有某格式文件到文件
原创
©著作权归作者所有:来自51CTO博客作者草宝虫啊的原创作品,请联系作者获取转载授权,否则将追究法律责任
![](https://ucenter.51cto.com/images/noavatar_middle.gif)
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章