快速业务通道

用vbs实现删除名称中有撇号的文件夹

作者 佚名 来源 ASP编程 浏览 发布时间 2013-07-09
问:
您好,脚本专家!如何删除名称中有撇号的文件夹?
--JH
答:
您好,JH。噢,是的,撇号:每个脚本编写者的主要灾难来源。撇号看起来只是一个简单的小字符,但切莫让它的外表所迷惑:撇号(或单引号)可能是键盘上最致命的字符。无论您是使用ActiveDirectory、数据库,还是文件系统,一个撇号就可以给您的脚本带来全部灾难。正如BartSimpson曾经形容Hershey?的MilkDud糖果,撇号也是“甜外毒内”。
注意:不,MilkDud里面并非真的有毒药。
撇号的问题在于它是“保留”字符,也就是VBScript自己专用的字符。例如,假设您要删除文件夹C:\Scripts。下面的脚本就将执行这一操作:
strComputer="."
SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")
SetcolFolders=objWMIService._
ExecQuery("Select*FromWin32_DirectoryWhereName=''C:\\Scripts''")
ForEachobjFolderincolFolders
errResults=objFolder.Delete
Next
如果您仔细查看Where子句,您会发现撇号(或单引号)用于代表一个字符串值:‘C:\\Scripts''。这就是我们在处理名称中有撇号的文件夹(例如,Ken''sScripts)时出现问题的原因。如果我们尝试运行如下脚本,您猜猜会发生什么?
strComputer="."
SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")
SetcolFolders=objWMIService._
ExecQuery("Select*FromWin32_DirectoryWhereName=''C:\\Ken''sScripts''")
ForEachobjFolderincolFolders
errResults=objFolder.Delete
Next
我们不会让您处于紧张的等待状态:这个脚本必然会失败。为什么?唔,请看其中的Where子句:
WhereName=''c:\\Ken''sScripts''
因为在Where子句中用撇号标记字符串的起始和结尾,所以VBScript认为文件夹的名称为:‘C:\\Ken''。这本来没问题,只可惜紧该字符串后面还有一串字符(sScripts'')。VBScript不知道这些杂乱数据表示什么,因此它只是放弃且不做任何尝试。
是的,我们知道。但这就是VBScript的工作方式。因为撇号是一个保留字符,用来(还有其它用途)在Where子句中标记字符串的起始和结尾。VBScript只是不了解我们在说什么。
不,绝对不是笑话大多数不幸与脚本专家交谈的人。那个问题太简单了!
那么,有没有解决这个问题的方法呢?肯定有。您也许知道,每次在Where子句中(例如,在文件路径中)使用反斜线(\)时,必须在其前面放置另一个\来“转义”反斜线;这就是为什么我们的文件路径类似C:\\Scripts而非C:\Scripts。我们必须这样做,因为\也是一个保留字符;指示VBScript按原样使用\的唯一方法就是转义它(只是使用另一个\作为其开端)。
嗨,稍等一下:如果只需使用另一个\作为开端就可以使用保留字符\,或许您也可以使用如单引号之类的保留字符,方法是使用\作为它的开端。
您知道,这确实神奇地奏效了:
strComputer="."
SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")
SetcolFolders=objWMIService._
ExecQuery("Select*fromWin32_DirectoryWhereName=''C:\\Ken\''sScripts''")
ForEachobjFolderincolFolders
errResults=objFolder.Delete
Next
答案就在这里,JH。请注意我们是如何在撇号前面放置\的;从而我们得到的结构看起来像这样:‘C:\\Ken\''sScripts''。在文件夹名称中的任何撇号前面均放一个\,脚本就可以正常工作了。是的,虽然看起来有点怪,但确实起作用。

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号