资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

怎么用vbs实现取消隐藏文件夹中的所有文件-创新互联

本篇内容介绍了“怎么用vbs实现取消隐藏文件夹中的所有文件”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!

创新互联建站于2013年开始,是专业互联网技术服务公司,拥有项目成都网站设计、成都做网站、外贸网站建设网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元平阴做网站,已为上家服务,为平阴各地企业和个人服务,联系电话:028-86922220

复制代码 代码如下:

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

“怎么用vbs实现取消隐藏文件夹中的所有文件”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站,小编将为大家输出更多高质量的实用文章!


网页名称:怎么用vbs实现取消隐藏文件夹中的所有文件-创新互联
网页地址:http://www.cdkjz.cn/article/hsgpg.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220