中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » vbs 遍历磁盘搜索文件,会跳过个别目录问题?

vcstone
初级用户

积分 98
发帖 39
注册 2007-3-16
状态离线

『楼主』: vbs 遍历磁盘搜索文件,会跳过个别目录问题?

爱虫遍历文件代码:
sub scan(folder_)　　'scan函数定义，
　　on error resume next　　 '如果出现错误，直接跳过，防止弹出错误窗口
　　set folder_=fso.getfolder(folder_)
　　　　 set files=folder_.files　　  ' 当前目录的所有文件集合
　　　　 for each file in filesext=fso.GetExtensionName(file)　　'获取文件后缀
　　　　 ext=lcase(ext)　　　  '后缀名转换成小写字母
　　　　　if ext="mp5" then　　'如果后缀名是mp5，则进行感染。请自己建立相应后缀名的文件，最好是非正常后缀名，以免破坏正常程序。
　　　　Wscript.echo (file)
　　　end if
　　next
　　set subfolders=folder_.subfolders
　　for each subfolder in subfolders　　'搜索其他目录；递归调用
　　　scan( )
　　　scan(subfolder)
　　next
　　end sub

用这个代码进行全盘搜索时会有个别目录跳过不扫描(我电脑上就是windows目录),去掉容错语句就会提示没有权限,
这位兄弟也提到了,代码都是差不多:
http://www.cn-dos.net/forum/view ... B%E6%90%9C%E7%B4%A2

当指定c:\windows来扫描的时候就不会提示没有权限.不明白是什么原因,请高人指点一下?

2008-1-29 18:24