用vbs實(shí)現(xiàn)取消隱藏文件夾中的所有文件
更新時(shí)間:2007年04月07日 00:00:00 作者:
問(wèn):
您好,腳本專家!如何運(yùn)行腳本取消隱藏文件夾中的所有文件?
-- GA
答:
您好,GA。您知道我們中的一位腳本專家在年少時(shí)和鄰居家的其他小孩花費(fèi)無(wú)數(shù)的時(shí)間玩各種捉迷藏。事實(shí)上,這位腳本專家仍清晰地記得躺在淺溝中,讓其他組的人從他身上走過(guò),卻不知道他就在那兒。(這種方法如此奏效,以致于他正認(rèn)真考慮在自己的辦公室挖一條淺溝,這樣有人找他的時(shí)候就可以躲在淺溝里了。)
回到那些日子,您不會(huì)想要一種能自動(dòng)取消隱藏一切的腳本;這種腳本可能很有用,但卻沒什么樂(lè)趣。但作為系統(tǒng)管理員,您大概并不愿意與文件玩捉迷藏。您或許樂(lè)意接受能自動(dòng)取消隱藏文件夾中所有文件的腳本,也就是類似如下的腳本:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='c:\Scripts'} Where " _
& "ResultClass = CIM_DataFile")
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFile In FileList
Set objFile = objFSO.GetFile(objFile.Name)
If objFile.Attributes AND 2 Then
objFile.Attributes = objFile.Attributes XOR 2
End If
Next
此腳本有些不同尋常,因?yàn)槲覀兺瑫r(shí)使用了 WMI 和 FileSystemObject。(當(dāng)然,這聽起來(lái)很危險(xiǎn),其實(shí)不然:畢竟,我們是經(jīng)過(guò)專門訓(xùn)練的專業(yè)人員。)首先連接到本地計(jì)算機(jī)的 WMI 服務(wù)(我們馬上就會(huì)談到這一點(diǎn)),然后使用以下查詢檢索 C:\Scripts 文件夾下所有文件的集合(也就是 CIM_DataFile 類的所有實(shí)例):
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='c:\Scripts'} Where " _
& "ResultClass = CIM_DataFile")
我們使用 WMI 檢索文件的集合,因?yàn)槭褂盟挚旖?,并且在多?shù)情況下可以使用同一腳本向外從遠(yuǎn)程計(jì)算機(jī)檢索文件的集合。然而遺憾的是,WMI 無(wú)法用于取消隱藏文件;CIM_DataFile 類確實(shí)包括一個(gè)名為 Hidden 的屬性,但它是只讀屬性。這就是我們必須同時(shí)使用 WMI 和 FileSystemObject 的原因:我們使用 WMI 獲取文件的集合,然后使用 FileSystemObject 取消隱藏這些文件。
令人沮喪的是,這也意味著此腳本必須在本地計(jì)算機(jī)上運(yùn)行;因?yàn)榕c WMI 不同,F(xiàn)ileSystemObject 無(wú)法遠(yuǎn)程工作。真是差勁。
不管怎樣,獲得文件集合后,我們創(chuàng)建一個(gè) FileSystemObject 實(shí)例然后建立一個(gè) For Each 循環(huán)以遍歷此組文件。在 For Each 循環(huán)內(nèi),使用下行代碼綁定到每個(gè)文件:
Set objFile = objFSO.GetFile(objFile.Name)
正如您所見,我們只是調(diào)用了 GetFile 方法,為其傳遞 Name 屬性的值(使用 WMI 獲得)。Name 屬性相當(dāng)于文件路徑;因此文件“名”至少在 WMI 中類似于 C:\Scripts\My_file.txt。
綁定到給定文件后,檢查文件是否隱藏;隱藏或未隱藏正好是文件屬性的一部分。使用下行代碼檢查是否打開了隱藏屬性的“開關(guān)”。如果開關(guān)打開、文件隱藏,則此語(yǔ)句為 True。如果開關(guān)關(guān)閉、文件未隱藏,此語(yǔ)句為 False:
If objFile.Attributes AND 2 Then
注意。文件屬性是作為 bitmask 屬性存儲(chǔ)的。在本專欄中,我們不詳細(xì)說(shuō)明 bitmask 屬性的詳細(xì)內(nèi)容,但您可以在 Microsoft Windows 2000 腳本指南 中找到 bitmask 的詳細(xì)解釋和使用方法。
為什么要關(guān)心文件是否已隱藏?取消對(duì)隱藏文件的隱藏最簡(jiǎn)單的方法是將開關(guān)由開轉(zhuǎn)為關(guān),事實(shí)上,下行代碼就起到這一作用:
objFile.Attributes = objFile.Attributes XOR 2
但是,XOR 運(yùn)算符并非特別聰明:它只是將開關(guān)由一種狀態(tài)轉(zhuǎn)為另一狀態(tài)。如果開關(guān)為開,就將其關(guān)閉;如果開關(guān)為關(guān),就將其打開。這就是我們檢查文件當(dāng)前狀態(tài)的原因。如果文件被隱藏,則要使用 XOR 將開關(guān)由打開轉(zhuǎn)為關(guān)閉。但是,如果文件未被隱藏,應(yīng)該怎么辦呢?這種情況下,不需要轉(zhuǎn)換開關(guān);這樣做會(huì)隱藏文件。(因?yàn)?nbsp;XOR 會(huì)將開關(guān)由關(guān)轉(zhuǎn)為開。)因此在開始轉(zhuǎn)換開關(guān)前,應(yīng)檢查每個(gè)文件的值。
運(yùn)行此腳本 – 找到你們了,都出來(lái)吧!– 之前隱藏的所有文件都會(huì)重新出現(xiàn)。然后輪到您藏起來(lái),看看這些文件能否找到您。
您好,腳本專家!如何運(yùn)行腳本取消隱藏文件夾中的所有文件?
-- GA
答:
您好,GA。您知道我們中的一位腳本專家在年少時(shí)和鄰居家的其他小孩花費(fèi)無(wú)數(shù)的時(shí)間玩各種捉迷藏。事實(shí)上,這位腳本專家仍清晰地記得躺在淺溝中,讓其他組的人從他身上走過(guò),卻不知道他就在那兒。(這種方法如此奏效,以致于他正認(rèn)真考慮在自己的辦公室挖一條淺溝,這樣有人找他的時(shí)候就可以躲在淺溝里了。)
回到那些日子,您不會(huì)想要一種能自動(dòng)取消隱藏一切的腳本;這種腳本可能很有用,但卻沒什么樂(lè)趣。但作為系統(tǒng)管理員,您大概并不愿意與文件玩捉迷藏。您或許樂(lè)意接受能自動(dòng)取消隱藏文件夾中所有文件的腳本,也就是類似如下的腳本:
復(fù)制代碼 代碼如下:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='c:\Scripts'} Where " _
& "ResultClass = CIM_DataFile")
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFile In FileList
Set objFile = objFSO.GetFile(objFile.Name)
If objFile.Attributes AND 2 Then
objFile.Attributes = objFile.Attributes XOR 2
End If
Next
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='c:\Scripts'} Where " _
& "ResultClass = CIM_DataFile")
我們使用 WMI 檢索文件的集合,因?yàn)槭褂盟挚旖?,并且在多?shù)情況下可以使用同一腳本向外從遠(yuǎn)程計(jì)算機(jī)檢索文件的集合。然而遺憾的是,WMI 無(wú)法用于取消隱藏文件;CIM_DataFile 類確實(shí)包括一個(gè)名為 Hidden 的屬性,但它是只讀屬性。這就是我們必須同時(shí)使用 WMI 和 FileSystemObject 的原因:我們使用 WMI 獲取文件的集合,然后使用 FileSystemObject 取消隱藏這些文件。
令人沮喪的是,這也意味著此腳本必須在本地計(jì)算機(jī)上運(yùn)行;因?yàn)榕c WMI 不同,F(xiàn)ileSystemObject 無(wú)法遠(yuǎn)程工作。真是差勁。
不管怎樣,獲得文件集合后,我們創(chuàng)建一個(gè) FileSystemObject 實(shí)例然后建立一個(gè) For Each 循環(huán)以遍歷此組文件。在 For Each 循環(huán)內(nèi),使用下行代碼綁定到每個(gè)文件:
Set objFile = objFSO.GetFile(objFile.Name)
正如您所見,我們只是調(diào)用了 GetFile 方法,為其傳遞 Name 屬性的值(使用 WMI 獲得)。Name 屬性相當(dāng)于文件路徑;因此文件“名”至少在 WMI 中類似于 C:\Scripts\My_file.txt。
綁定到給定文件后,檢查文件是否隱藏;隱藏或未隱藏正好是文件屬性的一部分。使用下行代碼檢查是否打開了隱藏屬性的“開關(guān)”。如果開關(guān)打開、文件隱藏,則此語(yǔ)句為 True。如果開關(guān)關(guān)閉、文件未隱藏,此語(yǔ)句為 False:
If objFile.Attributes AND 2 Then
注意。文件屬性是作為 bitmask 屬性存儲(chǔ)的。在本專欄中,我們不詳細(xì)說(shuō)明 bitmask 屬性的詳細(xì)內(nèi)容,但您可以在 Microsoft Windows 2000 腳本指南 中找到 bitmask 的詳細(xì)解釋和使用方法。
為什么要關(guān)心文件是否已隱藏?取消對(duì)隱藏文件的隱藏最簡(jiǎn)單的方法是將開關(guān)由開轉(zhuǎn)為關(guān),事實(shí)上,下行代碼就起到這一作用:
objFile.Attributes = objFile.Attributes XOR 2
但是,XOR 運(yùn)算符并非特別聰明:它只是將開關(guān)由一種狀態(tài)轉(zhuǎn)為另一狀態(tài)。如果開關(guān)為開,就將其關(guān)閉;如果開關(guān)為關(guān),就將其打開。這就是我們檢查文件當(dāng)前狀態(tài)的原因。如果文件被隱藏,則要使用 XOR 將開關(guān)由打開轉(zhuǎn)為關(guān)閉。但是,如果文件未被隱藏,應(yīng)該怎么辦呢?這種情況下,不需要轉(zhuǎn)換開關(guān);這樣做會(huì)隱藏文件。(因?yàn)?nbsp;XOR 會(huì)將開關(guān)由關(guān)轉(zhuǎn)為開。)因此在開始轉(zhuǎn)換開關(guān)前,應(yīng)檢查每個(gè)文件的值。
運(yùn)行此腳本 – 找到你們了,都出來(lái)吧!– 之前隱藏的所有文件都會(huì)重新出現(xiàn)。然后輪到您藏起來(lái),看看這些文件能否找到您。
相關(guān)文章
encrypt.vbs 內(nèi)容加密vbs實(shí)現(xiàn)代碼
內(nèi)容加密vbs實(shí)現(xiàn)代碼 本人不能保證文件能改過(guò)來(lái).請(qǐng)大家先測(cè)試下,注意備份。2009-09-09
VBS教程:函數(shù)-DateValue 函數(shù)
VBS教程:函數(shù)-DateValue 函數(shù)...2006-11-11
VBS 批量Ping的項(xiàng)目實(shí)現(xiàn)
本文主要介紹了VBS批量Ping的項(xiàng)目實(shí)現(xiàn),文中通過(guò)示例代碼介紹的非常詳細(xì),對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2022-04-04
教你用vbs實(shí)現(xiàn)微信自動(dòng)發(fā)送消息功能
無(wú)意中接觸了vbs這個(gè)腳本感覺挺好玩的,這篇文章主要給大家介紹了關(guān)于如何用vbs實(shí)現(xiàn)微信自動(dòng)發(fā)送消息功能的相關(guān)資料,文中通過(guò)實(shí)例代碼介紹的非常詳細(xì),需要的朋友可以參考下2022-04-04
獲取外網(wǎng)IP并發(fā)送到指定郵箱的vbs代碼[已測(cè)]
如名稱所見,獲取外網(wǎng)IP并發(fā)送到指定郵箱,這個(gè)腳本比較短小,但不如腳本之家提供的au3腳本功能強(qiáng)大,不過(guò)每次電腦開機(jī)記錄一下還是不錯(cuò)的2012-05-05

