本篇內(nèi)容介紹了“怎么用vbs實(shí)現(xiàn)取消隱藏文件夾中的所有文件”的有關(guān)知識，在實(shí)際案例的操作過程中，不少人都會遇到這樣的困境，接下來就讓小編帶領(lǐng)大家學(xué)習(xí)一下如何處理這些情況吧！希望大家仔細(xì)閱讀，能夠?qū)W有所成！

創(chuàng)新互聯(lián)建站于2013年開始，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元平陰做網(wǎng)站,已為上家服務(wù),為平陰各地企業(yè)和個人服務(wù),聯(lián)系電話:028-86922220

復(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

“怎么用vbs實(shí)現(xiàn)取消隱藏文件夾中的所有文件”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識可以關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實(shí)用文章！

網(wǎng)站題目：怎么用vbs實(shí)現(xiàn)取消隱藏文件夾中的所有文件-創(chuàng)新互聯(lián)
標(biāo)題網(wǎng)址：http://weahome.cn/article/hsgpg.html