如何利用.NET的DirectorySecurity对象处理目录安全性问题

Imports System.IO

Imports System.Security.AccessControl

Module Module1

Sub Main()

Dim i As Integer

Dim subDirs() As String

Dim ds As DirectorySecurity

Try
subDirs = Directory.GetDirectories("c:\")

For i = 0 To subDirs.GetUpperBound(0)
ds = Directory.GetAccessControl(subDirs(i))

If Not (ds Is Nothing) Then
ds.AddAccessRule(New FileSystemAccessRule("Domain\\TechRepublicUser", FileSystemRights.FullControl, AccessControlType.Allow))
ds.RemoveAccessRule(New FileSystemAccessRule("Domain\\Tester", FileSystemRights.FullControl, AccessControlType.Deny))

End If
Directory.SetAccessControl(subDirs(i), ds)

Next i

Catch e As IOException
Console.WriteLine("Exception {0}", e.Message.ToString())

End Try

End Sub

End Module