問： 您好，腳本專家！如何運行腳本取消隱藏文件夾中的所有文件？ -- GA 答： 您好，GA。您知道我們中的一位腳本專家在年少時和鄰居家的其他小孩花費無數的時間玩各種捉迷藏。事實上，這位腳本專家仍清晰地記得躺在淺溝中，讓其他組的人從他身上走過，卻不知道他就在那兒。（這種方法如此奏效，以致于他正認真考慮在自己的辦公室挖一條淺溝，這樣有人找他的時候就可以躲在淺溝里了。） 回到那些日子，您不會想要一種能自動取消隱藏一切的腳本；這種腳本可能很有用，但卻沒什么樂趣。但作為系統管理員，您大概并不愿意與文件玩捉迷藏。您或許樂意接受能自動取消隱藏文件夾中所有文件的腳本，也就是類似如下的腳本：
復制代碼 代碼如下:
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
