用vbs實現(xiàn)刪除名稱中有撇號的文件夾
問:
您好,腳本專家!如何刪除名稱中有撇號的文件夾?
-- JH
答:
您好,JH。噢,是的,撇號:每個腳本編寫者的主要災難來源。撇號看起來只是一個簡單的小字符,但切莫讓它的外表所迷惑:撇號(或單引號)可能是鍵盤上最致命的字符。無論您是使用 Active Directory、數(shù)據(jù)庫,還是文件系統(tǒng),一個撇號就可以給您的腳本帶來全部災難。正如 Bart Simpson 曾經(jīng)形容 Hershey? 的 Milk Dud 糖果,撇號也是“甜外毒內(nèi)”。
注意:不,Milk Dud 里面并非真的有毒藥。
撇號的問題在于它是“保留”字符,也就是 VBScript 自己專用的字符。例如,假設您要刪除文件夾 C:\Scripts。下面的腳本就將執(zhí)行這一操作:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService. _
ExecQuery("Select * From Win32_Directory Where Name = 'C:\\Scripts'")
For Each objFolder in colFolders
errResults = objFolder.Delete
Next
如果您仔細查看 Where 子句,您會發(fā)現(xiàn)撇號(或單引號)用于代表一個字符串值:‘C:\\Scripts'。這就是我們在處理名稱中有撇號的文件夾(例如,Ken's Scripts)時出現(xiàn)問題的原因。如果我們嘗試運行如下腳本,您猜猜會發(fā)生什么?
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService. _
ExecQuery("Select * From Win32_Directory Where Name = 'C:\\Ken's Scripts'")
For Each objFolder in colFolders
errResults = objFolder.Delete
Next
我們不會讓您處于緊張的等待狀態(tài):這個腳本必然會失敗。為什么?唔,請看其中的 Where 子句:
Where Name = 'c:\\Ken's Scripts'
因為在 Where 子句中用撇號標記字符串的起始和結尾,所以 VBScript 認為文件夾的名稱為:‘C:\\Ken'。這本來沒問題,只可惜緊該字符串后面還有一串字符 (s Scripts')。VBScript 不知道這些雜亂數(shù)據(jù)表示什么,因此它只是放棄且不做任何嘗試。
是的,我們知道。但這就是 VBScript 的工作方式。因為撇號是一個保留字符,用來(還有其它用途)在 Where 子句中標記字符串的起始和結尾。VBScript 只是不了解我們在說什么。
不,絕對不是笑話大多數(shù)不幸與腳本專家交談的人。那個問題太簡單了!
那么,有沒有解決這個問題的方法呢?肯定有。您也許知道,每次在 Where 子句中(例如,在文件路徑中)使用反斜線 (\) 時,必須在其前面放置另一個 \ 來“轉(zhuǎn)義”反斜線;這就是為什么我們的文件路徑類似 C:\\Scripts 而非 C:\Scripts。我們必須這樣做,因為 \ 也是一個保留字符;指示 VBScript 按原樣使用 \ 的唯一方法就是轉(zhuǎn)義它(只是使用另一個 \ 作為其開端)。
嗨,稍等一下:如果只需使用另一個 \ 作為開端就可以使用保留字符 \,或許您也可以使用如單引號之類的保留字符,方法是使用 \ 作為它的開端。
您知道,這確實神奇地奏效了:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService. _
ExecQuery("Select * from Win32_Directory Where Name = 'C:\\Ken\'s Scripts'")
For Each objFolder in colFolders
errResults = objFolder.Delete
Next
答案就在這里,JH。請注意我們是如何在撇號前面放置 \ 的;從而我們得到的結構看起來像這樣:‘C:\\Ken\'s Scripts'。在文件夾名稱中的任何撇號前面均放一個 \,腳本就可以正常工作了。是的,雖然看起來有點怪,但確實起作用。
上一篇:可以將文件轉(zhuǎn)換為vbs語句的vbs代碼
欄 目:vb
下一篇:WINDOWS腳本實踐:為SAP補丁制作的VBS腳本代碼
本文地址:http://mengdiqiu.com.cn/a1/vb/7929.html
您可能感興趣的文章
- 01-10下載文件到本地運行的vbs
- 01-10VBS中的正則表達式的用法大全 <font color=red>原創(chuàng)&
- 01-10VBS中SendKeys的基本應用
- 01-10VBScript教程 第十一課深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript語法速查及實例說明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七課使用條件語句
- 01-10vbscript 可以按引用傳遞參數(shù)嗎?
- 01-10VBScript教程 第二課在HTML頁面中添加VBscript代碼


閱讀排行
本欄相關
- 01-10下載文件到本地運行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個高效的軟件
- 01-10VBS中的正則表達式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語法速查及實例說明
隨機閱讀
- 01-10使用C語言求解撲克牌的順子及n個骰子
- 08-05DEDE織夢data目錄下的sessions文件夾有什
- 01-10delphi制作wav文件的方法
- 01-10C#中split用法實例總結
- 08-05織夢dedecms什么時候用欄目交叉功能?
- 04-02jquery與jsp,用jquery
- 08-05dedecms(織夢)副欄目數(shù)量限制代碼修改
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文
- 01-10SublimeText編譯C開發(fā)環(huán)境設置
- 01-11ajax實現(xiàn)頁面的局部加載