VBS怎样去掉文件夹包括子目录及文件的只读属性

lon91ong

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

望大虾指教!
多谢了!

[ 本帖最后由 lon91ong 于 2008-9-27 19:17 编辑 ]

zqz0012005

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

lon91ong

呵呵,看来还是批处理方便啊!

rat

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

复制代码

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