包罗万象--好东西要收藏--共享无限

[火影忍者]Naruto 第514集「火影忍者疾风传"力量"episode 5!!」 剧情介绍:

鸣人与多克败于克隆体九尾手下，被关在祭坛深处的房间里。两个人面前出现了兜与一个意外的人物，兜等人的目标就是古代一串"旋律"，以及开启它的关键"音色"。当所有的"音色"集齐之后，霍尔代代相传的那强劲的"力量"就会落入兜之手。虽说之前有些"音色"尚未集齐，然而为了拯救多克，莱欧却将剩下的"音色"带来与兜交换......

[火影忍者]Naruto 第513集「火影忍者疾风传"力量"episode 4!!」 剧情介绍:

鸣人体内出现的莫非是九尾化之后的鸣人克隆体吗？欲控制它的兜因得到九尾的查克拉而欣喜不已，克隆体为了得到"力量"激烈的咆哮起来，连空气都为之震动！鸣人在压倒性的力量面前倒下，多克与孩子们束手无策，可谓千钧一发！此时，卡卡西与凯、小李、雏田、鹿丸等木叶的同伴们赶到了。克隆体力量过于强大以致破坏了整个小镇，究竟他们能否阻止这一切呢.....

[火影忍者]Naruto 第512集「火影忍者疾风传"力量"episode 3!!」剧情介绍:

为了保护村里的幸存者多克他们，鸣人与小樱决定在希瑟尔家中留宿。鸣人由于与孩子们一起住相互熟悉了起来，然而因袭击失去了父母的孩子们却止不住哭了起来。多克与希瑟尔的存在令他们有了一家人的感觉。而这时，鸣人却身体不适以致呼吸困难。大家担心地守在他身边，不知为何此时米娜却对鸣人不断大叫出去...

[火影忍者]Naruto 第511集「火影忍者疾风传"力量"episode 2!!」 剧情介绍:

兜突然出现在正在村里进行调查的鸣人等人面前。鸣人众人本想抓捕兜，但却与秽土转生之术通灵出来的迪拉达、木叶忍者飒拉展开激战，颇费功夫，最终还是被他逃了出来。 另一方面，胖男人多克和孩子们逃到附近城镇，年幼的米娜不知为何总是哼着一首不可思议的旋律。鸣人等人也来到那座城镇，知晓了托尼卡村"霍尔"的传说以及"力量"的来龙去脉。莫非兜的出现与此传说及"力量"有关？

[火影忍者]Naruto 第510集「火影忍者疾风传"力量"episode 1!!」 剧情介绍:

为纪念TV动画播出突破500集，现决定播出共6集的TV原创故事！鸣人等人被下达了任务"位于火之国国境附近的神圣区域托尼卡村发生了村人惨遭杀害的事件，你们的任务就是追查犯人并予以相应的制裁。"久违的任务令鸣人十分起劲欲在任务中大显身手。然而到达村子后幕入眼帘的却是众多房屋被无情的破坏，留下一地激战的痕迹，村子究竟为何被袭击？袭击村子的又是什么人呢....

[火影忍者]Naruto 第509集「雷刀丨林檎雨由利!!」 剧情介绍:

忍刀七人众之一的雷刀"牙"使用者林檎雨由利向欧莫伊的部队袭来。欧莫伊师徒为雨由利的攻击而牺牲的伙伴油鲁伊复仇，然而部队指挥娜鲁伊并未允许且命其撤退。欧莫伊厌倦众人只知一味的逃跑，为给油鲁伊复仇而无视命令前去与雨由利战斗，却因雷刀"牙"中不断释放的雷击而手足无措，于是使出比曾经教授的剑术....

[火影忍者]Naruto 第508话「威胁丨甚八&串丸组合!!」 剧情介绍:

忍刀七人众袭击了卡卡西第三部队。接到七人众出现的情报后赶往现场的卡卡西面前出现了使用长刀"缝针"的栗霰串丸与挥舞爆刀"飞沫"的无梨甚八。无情且享受杀戮的二人令卡卡西出离愤怒，但仅凭一人之力无法抵挡而被逼得走头无路，陷入了危机之中。然而，就在此时，精神飒爽的"青蓝猛兽"迈特·凯赶到，一场友情组合与无情组合的激战将拉开序幕....

[火影忍者]Naruto 第507集「秘話丨綱手＆雷影！二人的赌注!!」下 剧情介绍:

比感到鸣人与纲手彼此十分信赖，因此在意起其原因来了。另一方面，回到总部的雷影又回忆起纲手所说的"我要在鸣人身上赌一把"那是在遇见鸣人值钱的事了，纲手在某条繁华的街因失去的最爱之人而无法振作，整日沉溺于赌博酗酒。此时雷影与几位部下赶赴那里执行任务，那两人曾经有过一面之缘！以鸣人为契机诉说，纲手与雷影的过去究竟是.....

[火影忍者]Naruto 第506集「秘話丨綱手＆雷影！二人的赌注!!」上 剧情介绍:

火影忍者506集「秘話丨綱手＆雷影！二人的赌注!!」上剧情介绍 比感到鸣人与纲手彼此十分信赖，因此在意起其原因来了。另一方面，回到总部的雷影又回忆起纲手所说的"我要在鸣人身上赌一把"那是在遇见鸣人值钱的事了，纲手在某条繁华的街因失去的最爱之人而无法振作，整日沉溺于赌博酗酒。此时雷影与几位部下赶赴那里执行任务，那两人曾经有过一面之缘！以鸣人为契机诉说，纲手与雷影的过去究竟是.....

[火影忍者]Naruto 第505集「灼遁使！砂忍者村的羽仓!!」 剧情介绍:

为击破忍刀七人众，部队分开作战。欧莫伊与封印班的玛琪所在的小队遭遇了曾经大刀鲛肌的主人西瓜山河豚鬼与爆遁忍者狩。队长在与狩的激战中因突然袭击的灼遁之术而牺牲。在玛琪等人面前出现的灼遁使用者帕库拉，对玛琪来说既是砂忍村的英雄也是曾经的师父。为了阻止憎恨雾隐村忍者的帕库拉，玛琪的战争打响了....

[火影忍者]Naruto 第504集「兜割，通草野饵人!!」 剧情介绍:

随着夜晚的来临，忍刀七人众也随之失去了踪影。卡卡西第三部队的队员们担心敌人可能随时来袭，因而边休息边提高警惕。为了替换疲惫不堪的封印班，卡卡西拜托擅使"根"封印术的佐井进行接下来的封印任务。然若此术失败自身也会被封印其中，佐井一次而犹豫不决。当黎明再临之时，通过秽土转生出的通草野饵人再次出现，忍者们接二连三倒在钝刀"兜割"手下.....

[火影忍者]Naruto 第503集「两个太阳!!」 剧情介绍:

雷影决意不放鸣人通过，并与鸣人展开了战斗。纲手却决意要让鸣人通过。比对雷影强调只要从大哥那里得到的那无法舍弃的话语还在，我们就不会被斑打败。鸣人也强烈地向雷影表达了自己的想法"父母将来托付给了我，所以我绝不会输"然而，为了测试最强查克拉状态下的鸣人，雷影使出充满杀意的拳头。究竟鸣人最终是否能够获得雷影的认同并赶往同伴身边呢....

<div align="center"><h4>最新动漫视频[火影忍者]Naruto 第503集「两个太阳!!」 抢新版 在线观看 </h4><strong>中文字幕 - 火影在线观看 - 实时更新 - 精彩不断</strong><br></div>
<div align="left"><iframe width="500" scrolling="no" height="410" src="http://www.tudou.com/v/H9pOrcO80GY/v.swf" marginheight="0" framespacing="0" marginwidth="0"></iframe></div><br /><br />
<h5 align="left">[火影忍者]Naruto 第503集「两个太阳!!」 剧情介绍: </h5><br>
<p><font size="2">
雷影决意不放鸣人通过，并与鸣人展开了战斗。纲手却决意要让鸣人通过。比对雷影强调只要从大哥那里得到的那无法舍弃的话语还在，我们就不会被斑打败。鸣人也强烈地向雷影表达了自己的想法"父母将来托付给了我，所以我绝不会输"然而，为了测试最强查克拉状态下的鸣人，雷影使出充满杀意的拳头。究竟鸣人最终是否能够获得雷影的认同并赶往同伴身边呢....
</font></p>
<br /><br />
<div><font size="3">请记住我们的网址: </font><a href="http://bbs.1kkg.com/forumdisplay.php?fid=36&filter=type&typeid=34"><fontsize="3">Naruto</font></a><br />
<font size="3">请记住我们的网站: <a href="http://bbs.superrichtech.com/forumdisplay.php?fid=36&filter=type&typeid=34">火影忍者Naruto视频-动漫天地</a><a href="http://bbs.1kkg.com.com/forumdisplay.php?fid=36&filter=type&typeid=34">Naruto</a> </font></div>
<br><font size="3"><a href="http://bbs.1kkg.com/forumdisplay.php?fid=36&filter=type&typeid=34">火影忍者</a> <a href="http://bbs.1kkg.com/forumdisplay.php?fid=36&filter=type&typeid=34">火影忍者 中文网</a> :<a href="http://bbs.1kkg.com/forumdisplay.php?fid=36&filter=type&typeid=34">Naruto-cNn</a></font>
<br><font size="3"><BR>我们一直在努力, 用心做好您心目中最好的 : <A href="http://bbs.superrichtech.com/forumdisplay.php?fid=36&filter=type&typeid=34">火影忍者Naruto中文网</A></font>

[火影忍者]Naruto 第502集「秘话！最强组合!!」 剧情介绍:

火影忍者502集「秘话！最强组合!!」剧情介绍 鸣人与比正向战场飞奔而去，为阻止二人，纲手和雷影出现在他们面前。比试图说服雷影同意鸣人参战，鸣人也表达了自己的想法"若大家都战死而只剩自己独活是毫无意义的"然而雷影却说"与其让你去还不如杀了你"并出拳攻击鸣人，比上前抵挡，两人 的拳头相交。比说"即使如今拳头相交你也无法理解我了吗"雷影听后，回想起了两人初次见面的情景.....

[火影忍者]Naruto 第501集「妈妈联合军!!」 剧情介绍:

木叶村的忍者们因第四次忍界大战而全部撤离，留守的木叶丸为守护村子而站了出来。然而留在村子里的母亲们告诉他"只要保持平时的样子就好了""这样真的好吗？"抱有如此疑问的木叶丸收到了有许多恐怖忍者袭击村子的消息。为了保护村子，守护火之意志，木叶丸奋发向上。但村里的母亲们却不相信木叶丸的那些话.....

[火影忍者]Naruto 第500集「艺术家的美学!!」 剧情介绍:

夜幕降临，遭捕获的迪拉达仍被关在勘九郎的傀儡中，并由第五部队的精英看守。为与其交涉而来的黑土告诉迪拉达，佐助在之前的战斗中并未死去。为此，遭受打击的迪拉达在白绝的保护下扮成武士逃了出去。随后，黑土、三船和勘九郎开始追捕迪拉达。但是，为了进一步完成超终极艺术，在逃离的迪拉达面前出现了一个意想不到的人物.....

[火影忍者]Naruto 第499集「白绝的陷阱!!」 剧情介绍:

白绝也出现在了牙、志乃和雏田的部队里，部队周围已经张开了结界。本不应该轻易被入侵，但是，煤矿区的结界貌似出现了漏洞。前往侦查的牙等人遭到了白绝的袭击，战斗引发的爆炸使得众人不幸走散。三人虽然好不容易平安相聚，志乃的一句"我们之中好像存在冒牌货"使得大家无法再互相信任，牙等人只好再次各自分头行动....

[火影忍者]Naruto 第498集「被狙击的医疗忍者!!」 剧情介绍:

火影忍者498集「被狙击的医疗忍者!!」剧情介绍 医疗部队帐篷里的小樱和静音一直忙于对战场上负伤的众多忍者治疗，因使用了白眼过度而精疲力竭的宁次来到了这里，接受小樱的治疗后进行着短暂的休息。然而，即使通过查克拉确定本人身份的方法也没彻底凑效，上忍医疗忍者接二连三的被人暗杀。医疗忍者们怀疑同伴之间存在间谍，从而陷入了混乱之中。在这种情况下，宁次赌上自己的眼睛决心已定要找出犯人.....

[火影忍者]Naruto 第496集「外道魔像袭来!!」 剧情介绍:

得知鸣人来到了外界，斑终于出动了。战场上成功将断封入结界，并将角度等人一并打败封印了起来。甚至连上百万的白绝都打到了只身一人，忍者们被胜利的气氛所包围，然而这时，战场上却悄悄出现了斑通灵出来的外道魔像。它那恐惧的力量将大地震碎，巨大的冲击削去地面，并不断的将在场的忍者震飞......

[火影忍者]Naruto 第495集「心中的信!!」 剧情介绍:

火影忍者495集「心中的信!!」,尽管鸣人在封闭查克拉的屋内进行修行，却仍能再查克拉模式下感受到金角的九尾查克拉。由此开始关注起了外界之事，于是便想出去，此时一位出乎意料的人物出现在他面前。此人就是伊鲁卡，他欲阻止鸣人外出。即使是曾经自己认可的恩师也无法将鸣人说服，他执意外出。就在此刻，由于仙人模式的感知能力，身处于各地战斗的同伴们的意识从四面八方汇聚而来，鸣人终于知晓了战争一事....

[火影忍者]Naruto 第494集「永别了猪鹿蝶·下」 剧情介绍:

火影忍者第494集「永别了猪鹿蝶·下」，映入井野、鹿丸、丁次眼帘的是正在同联合军的忍者战斗的昔日恩师阿斯玛。猪鹿蝶三人是阿斯玛曾经的部下，因此最为了解他。为此，鹿丸认为他们三人最有胜算并下达了残酷的命令。三人回忆起阿斯玛临终遗言便下定决心战斗。他们与阿斯玛久别重逢尚未来得及怀念往事便开始了战斗。三人虽然勇敢地发起了挑战，丁次却一时心软不忍攻击。他回想起了从前和阿斯玛练习对战时的情形....

[火影忍者]Naruto 第493集「永别了猪鹿蝶·上」 剧情介绍:

映入井野、鹿丸、丁次眼帘的是正在同联合军的忍者战斗的昔日恩师阿斯玛。猪鹿蝶三人是阿斯玛曾经的部下，因此最为了解他。为此，鹿丸认为他们三人最有胜算并下达了残酷的命令。三人回忆起阿斯玛临终遗言便下定决心战斗。他们与阿斯玛久别重逢尚未来得及怀念往事便开始了战斗。三人虽然勇敢地发起了挑战，丁次却一时心软不忍攻击。他回想起了从前和阿斯玛练习对战时的情形....

[火影忍者]Naruto 第489集「禁句!!」 剧情介绍:

连雷影都不胜惊愕的金角银角兄弟加入战斗，云忍的阿斯伊、萨姆伊和塔鲁伊前往迎战。而金银兄弟操控着被称为六道仙人宝物的五大忍具，甚至还曾将二代火影逼入绝境，是两位拥有可怕实力的强大忍者。果断像金银兄弟的阿斯伊、萨姆伊在兄弟两人的忍具面前纷纷败下阵来。只剩一人的卡鲁伊陷入窘境，但他仍与强敌展开殊死战斗。此时，然而金银兄弟却有着更可怕的秘密.....

[火影忍者]Naruto 第488集「各自的激战!!」 剧情介绍:

火影忍者488集「各自的激战!!」以塔鲁伊施放的岚遁之术为信号，处于沿海战场的塔鲁伊第一部队一起向数百名白绝发起进攻。正当无数苦无在空中穿梭交错之时，混在敌方大量白绝中被复活的木叶忍者断、日向日足则对阵日向日差展开迎击。正在双方陷入混战之时，半路杀出增援，敌方的最强最坏大罪人---金角银角兄弟登场...

[火影忍者]Naruto 第487集「木叶的天才军师!!」 剧情介绍:

由我爱罗所帅领的第四部队于沙漠一角原地待命。此时出现了兜秽土转生出的二代土影，二代水影，三代雷影和四代风影这几位历代众影。同时处于临战状态的塔鲁伊第一部队所在的海岸线上除了大量的白绝，昔日的同伴和强敌也相继出现。感知到这些的忍者联合军总部措手不及。身为总部大将的雷影自告奋勇准备出战。这是，鹿丸的父亲奈良鹿久让及时加以组织并以其冷静分析与超乎常人的头脑看穿结局，制定出了明确的作战计划...

[火影忍者]Naruto 第486集「最初之敌丨最后之敌!!」 剧情介绍:

火影忍者486集「最初之敌丨最后之敌!!」,卡卡西等人看穿敌人意图开始展看反击，然而兜通过秽土转生选出历代雾隐忍刀七人众中最强的成员，组成雾隐最强的忍刀七人众投入战场并使之大开杀戒。卡卡西小队伤亡不断！为了结束本已了结恩怨的，同再不斩和白继续毫无意义的悲凉战斗，同时也为了守护两人最终心意想通的那幕唯美临终画面，卡卡西向意识完全被控制了的再不斩和白发起挑战，开始了殊死的搏斗。往昔的战斗光景如今再现...

[火影忍者]Naruto 第485集「与宿敌的再会!!」 剧情介绍:

白袭击了飞行在上空的佐井和莫伊等人，秽土转生的一些拥有血继界限的忍者们，如砂隐的怕库拉和岩隐的狩加上桃地再不斩向其迎击。 面对此等强敌，佐井等人陷入危机，这是卡卡西小队与小樱他们赶来了，被兜操控的白请求卡卡西再次阻止自己，然而由于被得到了大蛇丸的查克拉而强化后的兜的力量所控制，过去的强敌再不斩与白向卡卡西袭来....

[火影忍者]Naruto 第484集「秽土转生的秘密!!」 剧情介绍:

鸣人终于习惯了掌控九尾查克拉模式。为了学会人柱力最强的术，鸣人在比的指导下向尾兽修行的最终阶段迈进。 另一方面，斑并不信任欲将御手洗红豆留下活口的兜。对于秽土转生是否必须要用活体心存疑问的斑，逼问兜说出关于这个术的一切。兜感觉目前若与拥有轮回眼的斑为敌极其不利，将自己的企图隐瞒心中，开始向斑解释秽土转生的一切.....

[火影忍者]Naruto 第483集「佐井与信!!」 剧情介绍:

秽土转生部队与奇袭部队的勘九郎，佐井一干人展开了激烈的战斗。这时佐井复活了的兄长信出现在他们面前。同样操纵傀儡作战的勘九郎与蝎展开激战。另一边迪达拉利用信的不死之身进行爆弹攻击，佐井因此愤怒异常。 激战之中，信目睹了佐井的画而回忆起了少年时代。回想佐井与自己的过去，两人从小就生活在无情的"根"组织中，像亲兄弟般的长大成人，最后互相残杀...

[火影忍者]Naruto 第482集「开战!!」 剧情介绍:

勘九郎所率领的奇袭部队中的佐井与欧莫伊等人从上空潜入敌方阵地，在林中设置好根据地。与此同时，正从敌方阵营撤逃的潜入侦查小队受到了"晓"方奇袭部队：迪拉达与蝎等人的攻击。虽说侦查部队的穆达勉强捡回了一条命抵达了勘九郎等人面前，然而迪拉达等人也追随其后赶来了。对方不仅操纵着"晓"过去的成员，还用秽土转生复活了过去的同伴。奇袭部队间的激战，正式拉开了战争的序幕.....

[火影忍者]Naruto 第481集「为了朋友!!」 剧情介绍:

望着高台上伫立着的各部队队长们，战斗大连队的8万忍者们各自心怀抱负。另外，在潜入侦查小队监视着斑老巢之时，秽土转生部队与10万白绝大军终于出击了。 然而，正在战斗不知何时就会开始之时，集结而成的忍者部队却出现了内讧。忍者们尚未完全互相取得信任。在这种对立的气氛扩张之时，连队连长兼第4部队队长我爱罗的演说开始了.....

[火影忍者]Naruto 火影忍者疾风传剧场版八特别篇「炎之中忍考试」剧情介绍:

火影忍者疾风传剧场版八特别篇「炎之中忍考试」, 讲述了在过去中忍选拔试验落选的鸣人再度挑战的故事。在这次试验中，从小时候开始就仰慕鸣人的木叶丸也将参加，两人战斗对抗，描述一段竞争者间的热血友情。战斗一触即发。

[火影忍者]Naruto火影忍者疾风传剧场版8「血狱」 剧情介绍:

《火影忍者剧场版：血狱》为《火影忍者》的第8个剧场版，故事舞台被设置在断崖绝壁，四面环海的孤岛监狱"鬼灯城"。在本篇故事中，鸣人因被指控杀害云隐和岩隐的上忍，及暗杀雷影未遂被投入监狱。"鬼灯城"城主无为拥有着超强的禁固术，鸣人不但因城主"无为"的最强禁锢术失去了所有力量，还处处遭人暗杀，他是否能活着证实自己的清白？笼罩这座岛的阴谋和秘密究竟是什么？为了得到真相，鸣人与同伴们将奋起战斗！而鸣人如何从监牢逃脱找到陷害自己的人，从而证明自己的清白则是更大的悬念。

[火影忍者]Naruto 第480集 放送10周年4周连续特别企划"离别" 剧情介绍:

佐助离开了木叶，前往大蛇丸身边。鸣人坚信佐助是同伴，与鹿丸，丁次，牙，宁次等人一同拼命追逐。这时，音忍四人众挡在了他们面前。 同伴们为了佐助而受伤倒地，鸣人继承了他们的意志，前去追逐佐助。鸣人是为了组织身为朋友的佐助，而佐助是为了得到更强大的力量。在终结之谷，两人的思绪互相碰撞....

[火影忍者]Naruto 第479集 放送10周年4周连续特别企划"龟裂" 剧情介绍:

火影忍者479集放送10周年4周连续特别企划"龟裂"

[火影忍者]Naruto 第478集 放送10周年4周连续特别企划"对手" 剧情介绍:

鸣人佐助总是争论不休，在死亡森林与中忍考试中合理达成目标。然而面对强敌大蛇丸，佐助却止步不前，之后又见到了超常发挥的鸣人而感到焦虑不已。 在与雨忍的对战中，佐助也与鸣人一同对抗他们，由于鸣人的超常发挥，他们得以逃过一劫，不服输的佐助越来越无法忽视极速成长的鸣人，再次向内心宣誓"自己是一个复仇者"

有这么一些文件，比如:
照片_001.jpg
照片_002.jpg
照片_003.jpg
有时候因为某种需要，想把"照片"批量改为自己定义的好听的名字，比如改为
avill_001.jpg
avill_002.jpg
avill_003.jpg
假如有1000张甚至更多的图片时，用手动来改的话不把你累死，也会被烦死的。
正因为这种需要，又不想安装什么软件。就直接用vbScript来实现了，即简单又方便，只要把下面的代码复制保存为 rename.vbs 就可以使用了。

' 批量替换文件名称
' author : avill
' upate  :2006.2.28
'

Dim NewLine
NewLine = vbcrlf
TabStop = ""

function isFolderExists(fso,folderPath)
  if folderPath = empty then exit function
  If not FSO.FolderExists(folderPath) Then
     msgbox "foloder not exists!please try agian"
     folderPath = InputBox("批量替换文件名称"& vbcrlf &"请输入路径[绝对路径],为空则自动退出","")
     call isFolderExists(fso,folderPath)     
  end if
end function

Function doRepWord(Files,filePath,repWord,resWord)

    Dim S,file,count,newName
        repWord = split(repWord,";")
        count = 0
        Set fso = CreateObject("Scripting.FileSystemObject")

        For Each File In Files
          for each repStr in repWord
           if instr(File.Name,repStr)<>0 then
             newName = replace(file.name,repStr,resWord)
             If not fso.FileExists(filePath&"\"&newName) Then
                'msgBox "exists"             
                file.name = newName
                count = count + 1
             end if
           end if
          next 
        Next

    doRepWord = count

End Function

sub reName()
  dim s,folderPath,repWord,resWord
  folderPath = "F:\Exercise\xhtml_info\taobao_images"
  folderPath = ""
  folderPath = InputBox("批量替换文件名称"& vbcrlf &"请输入路径[绝对路径]","")
  
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  call isFolderExists(fso,folderPath)
  if folderPath = empty then exit sub
  repWord = InputBox("希望要替换掉的字符,多个字符请用分号[;]隔开!","")
  resWord = InputBox("希望将字符替换为:!","") 
 
  Set Folder = FSO.GetFolder(folderPath)
  Set Files = Folder.Files
 
  If 1 = Files.Count Then
     S = S & "There is 1 file" & NewLine
  Else
     S = S & "There are " & Files.Count & " files" & NewLine
  End If

  If Files.Count <> 0 Then
     s = s & "replace files:" & doRepWord(Files,folderPath,repWord,resWord) &NewLine
  End If

  msgbox s 
  
end sub

call reName()

同样地，下面的代码是实现批量替换文件夹名称，复制下面代码保存为 refolder.vbs 用法同上.

' 批量替换文件夹名称
' author : avill
' update : 2006.2.26
'

Dim NewLine
NewLine = vbcrlf
TabStop = ""

function isFolderExists(fso,folderPath)
  if folderPath = empty then exit function
  If not FSO.FolderExists(folderPath) Then
     msgbox "foloder not exists!please try agian"
     folderPath = InputBox("请输入路径[绝对路径],为空则自动退出","")
     call isFolderExists(fso,folderPath)     
  end if
end function

Function doRepWord(Files,repWord,resWord)

    Dim S,file,count
        repWord = split(repWord,";")
        count = 0
        For Each File In Files
          for each repStr in repWord
          if instr(File.Name,repStr)<>0 then
             file.name = replace(file.name,repStr,resWord)
             count = count + 1
          end if
          next 
        Next

    doRepWord = count

End Function

sub reName()
  dim s,folderPath,repWord,resWord
  folderPath = "F:\Exercise\xhtml_info\taobao_images"
  folderPath = InputBox("批量替换文件夹名称"& chr(13) &"请输入路径[绝对路径]","")
  
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  call isFolderExists(fso,folderPath)
  if folderPath = empty then exit sub
  repWord = InputBox("希望要替换掉的字符,多个字符请用分号[;]隔开!","")
  resWord = InputBox("希望将字符替换为:!","") 
 
  Set Folder = FSO.GetFolder(folderPath)
  Set Files = Folder.SubFolders

  If 1 = Files.Count Then
     S = S & "There is only 1 folder"  &NewLine
  Else
     S = S & "There are " & Files.Count &" folders "&NewLine
  End If

  If Files.Count <> 0 Then
     s = s & "replace folderName:" & doRepWord(Files,repWord,resWord) &NewLine
  End If


if 1 = 2 then

  Set Files = Folder.Files
 
  If 1 = Files.Count Then
     S = S & "There is 1 file" & NewLine
  Else
     S = S & "There are " & Files.Count & " folders" & NewLine
  End If

  If Files.Count <> 0 Then
     s = s & "replace folder:" & doRepWord(Files,repWord,resWord) &NewLine
  End If

end if

  msgbox s 
  
end sub

call reName()

参考: http://www.cnblogs.com/avill/archive/2006/03/02/341424.html