用vbs实现搜索目标文件夹（包括子文件夹）下的某文件，并复制到c盘下

襄阳城

<p>用vbs实现搜索目标文件夹（包括子文件夹）下的某文件，并复制到c盘下</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：10 -</p>
<p>解决时间：2010-4-8 13:06</p>
<p>如何用vbs搜索目标文件夹（包括子文件夹）下的某文件，并复制到c盘下</p>
<p>提问者： 小苦花 - 三级</p>
<p>最佳答案</p>
<p>set r=createobject("scripting.filesystemobject")</p>
<p>p="c:\a.rar"\'目标</p>
<p>w="tem1.rar"\'源</p>
<p>pth="d:\123\a34"\'源文件夹</p>
<p>f pth</p>
<p>d pth</p>
<p>sub d(x)</p>
<p>on error resume next</p>
<p>for each i in r.getfolder(x).subfolders</p>
<p>f i</p>
<p>d i</p>
<p>next</p>
<p>end sub</p>
<p>sub f(n)</p>
<p>for each c in r.getfolder(n).files</p>
<p>if instr(1，c，w，1)>0 then</p>
<p>r.copyfile c，p</p>
<p>if r.fileexists(c) then</p>
<p>msgbox"成功"，64</p>
<p>else</p>
<p>msgbox"失败"，16</p>
<p>end if</p>
<p>wscript.quit</p>
<p>end if</p>
<p>next</p>
<p>end sub</p>
<p>0</p>
<p>回答者：</p>
<p>Passer_MWorld - 五级   2010-4-7 11:45</p>
<p>我来评论>></p>