Board logo

标题: VBS怎样去掉文件夹包括子目录及文件的只读属性 [打印本页]

作者: lon91ong    时间: 2008-9-27 11:20     标题: VBS怎样去掉文件夹包括子目录及文件的只读属性

如题,我知道批处理很简单,一个attrib -r 指定目录 /s /d就全解决了,但是VBS好像比较麻烦,不知道该如何实现!

望大虾指教!
多谢了!

[ 本帖最后由 lon91ong 于 2008-9-27 19:17 编辑 ]
作者: zqz0012005    时间: 2008-9-27 11:50

直接用FSO的方法很麻烦,要对集合进行遍历循环,而且去只读属性时文件-1,文件夹-16
不如调用attrib命令
CreateObject("WScript.Shell").Run "cmd /c attrib -r 指定目录 /s /d",0
作者: lon91ong    时间: 2008-9-27 11:51

呵呵,看来还是批处理方便啊!
作者: rat    时间: 2008-10-20 21:04

  1. Option Explicit
  2. ClearReadOnlyAttr "C:\Test"
  3. Sub ClearReadOnlyAttr(sPath)
  4.         Dim oFso, oFolder, oSubFolders, oFiles, oFile, oSubFolder
  5.         Const FILE_READONLY = 1, DIR_READONLY = 16
  6.         Set oFso = CreateObject("Scripting.FileSystemObject")   
  7.         Set oFolder = oFso.GetFolder(sPath)         
  8.         Set oSubFolders = oFolder.SubFolders         
  9.         Set oFiles = oFolder.Files
  10.   
  11.         If oFolder.Attributes And DIR_READONLY Then
  12.                 oFolder.Attributes = oFolder.Attributes - DIR_READONLY
  13.         End If  
  14.                
  15.         For Each oFile In oFiles   
  16.             If oFile.Attributes And FILE_READONLY Then
  17.                         oFile.Attributes = oFile.Attributes - FILE_READONLY
  18.             End If  
  19.         Next  
  20.                
  21.         For Each oSubFolder In oSubFolders
  22.                 ClearReadOnlyAttr oSubFolder.Path        '递归         
  23.         Next  
  24.       
  25.         Set oSubFolder = Nothing
  26.         Set oFile = Nothing
  27.         Set oFiles = Nothing
  28.         Set oSubFolders = Nothing
  29.         Set oFolder = Nothing            
  30.         Set oFso = Nothing
  31. End Sub
复制代码

[ 本帖最后由 rat 于 2008-10-20 21:10 编辑 ]




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