问： 您好，脚本专家！如何运行脚本取消隐藏文件夹中的所有文件？ -- 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
