爱虫遍历文件代码:
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/viewthread.php?tid=30774&fpage=1&highlight=vbs%2B%E6%90%9C%E7%B4%A2
当指定c:\windows来扫描的时候就不会提示没有权限.不明白是什么原因,请高人指点一下?
