Board logo

标题: [原创] VBScript脚本如何批量隐藏文件? [打印本页]

作者: copp_x    时间: 2012-2-6 11:18     标题: VBScript脚本如何批量隐藏文件?

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. For Each folder In subfolders
  15. hiddenFile(folder.Path)
  16. next
复制代码

作者: powerbat    时间: 2012-2-6 13:16

你的代码写完了吗?
这个东西的确没价值,你直接把属性设为2,原有的其他属性都不管了?
最好用或运算赋值。
作者: copp_x    时间: 2012-2-6 16:34

回复 2# powerbat


    f.attributes = f.attributes +2
    要这样写吗?
作者: Spring    时间: 2012-2-6 18:00

f.attributes = f.attributes or 2
作者: copp_x    时间: 2012-2-9 22:27

求详细的解释




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2