用vbs實(shí)現(xiàn)取消隱藏文件夾中的所有文件

2019-10-26 17:59:46

字體：大中小

供稿：網(wǎng)友

問：
您好，腳本專家！如何運(yùn)行腳本取消隱藏文件夾中的所有文件？
-- GA
答：
您好，GA。您知道我們中的一位腳本專家在年少時(shí)和鄰居家的其他小孩花費(fèi)無數(shù)的時(shí)間玩各種捉迷藏。事實(shí)上，這位腳本專家仍清晰地記得躺在淺溝中，讓其他組的人從他身上走過，卻不知道他就在那兒。（這種方法如此奏效，以致于他正認(rèn)真考慮在自己的辦公室挖一條淺溝，這樣有人找他的時(shí)候就可以躲在淺溝里了。）
回到那些日子，您不會想要一種能自動取消隱藏一切的腳本；這種腳本可能很有用，但卻沒什么樂趣。但作為系統(tǒ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

此腳本有些不同尋常，因?yàn)槲覀兺瑫r(shí)使用了 WMI 和 FileSystemObject。（當(dāng)然，這聽起來很危險(xiǎn)，其實(shí)不然：畢竟，我們是經(jīng)過專門訓(xùn)練的專業(yè)人員。）首先連接到本地計(jì)算機(jī)的 WMI 服務(wù)（我們馬上就會談到這一點(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 無法用于取消隱藏文件；CIM_DataFile 類確實(shí)包括一個(gè)名為 Hidden 的屬性，但它是只讀屬性。這就是我們必須同時(shí)使用 WMI 和 FileSystemObject 的原因：我們使用 WMI 獲取文件的集合，然后使用 FileSystemObject 取消隱藏這些文件。

上一篇：CreateWeb.vbs 代碼