怎样将一个文件夹里所有文件的属性设为只读

[feeling3]

如题

[yifanlxj]

使用一个循环

[feeling3]

给点示例代码嘛，谢谢了

[水如烟]

如果是Net2.0的,用IO.Directory.SetAccessControl

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MakeDiryctoryReadonly("C:\Downloads")
End Sub

Public Sub MakeDiryctoryReadonly(ByVal Path As String)
If Not IO.Directory.Exists(Path) Then Exit Sub
'处理当前目录
MakeFileReadonly(Path)
'处理当前目录文件
MakeDirectoryFileReadonly(Path)
'处理子目录
For Each mDirectory As String In IO.Directory.GetDirectories(Path)
MakeDiryctoryReadonly(mDirectory)
Next
End Sub
Private Sub MakeDirectoryFileReadonly(ByVal mDirectory As String)
For Each s As String In IO.Directory.GetFiles(mDirectory)
MakeFileReadonly(s)
Next
End Sub

Private Sub MakeFileReadonly(ByVal filename As String)
IO.File.SetAttributes(filename, IO.File.GetAttributes(filename) Or IO.FileAttributes.ReadOnly)
End Sub