VBScript脚本如何批量隐藏文件？

copp_x

blog:http://x0day.sinaapp.com

1. Dim fso,folderpath
   
2. Set fso = CreateObject("scripting.filesystemobject")
   
3. folderpath = "d:\1" '根据自己的需要自行修改
   
4. tp = "txt"      '指定文件的类型
   
5. hiddenFile(folderPath)
   
6. Sub hiddenFile(folderPath)
   
7. Set folders = fso.GetFolder(folderPath)
   
8. Set subfolders = folders.SubFolders
   
9. Set files = folders.Files
   
10. For Each file In files
    
11. If fso.GetExtensionName(file.Path)=tp Then
    
12.    file.Attributes = 2
    
13. End If
    
14. 
    
15. For Each folder In subfolders
    
16. hiddenFile(folder.Path)
    
17. next

复制代码

powerbat

你的代码写完了吗？
这个东西的确没价值，你直接把属性设为2，原有的其他属性都不管了？
最好用或运算赋值。

copp_x

回复 2# powerbat


    f.attributes = f.attributes +2
    要这样写吗？

Spring

f.attributes = f.attributes or 2

copp_x

求详细的解释