如何利用.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.AddAuditRule(New FileSystemAuditRule("Domain\\TechRepublicUser ", FileSystemRights.Delete, AuditFlags.Failure))
ds.RemoveAuditRule(New FileSystemAuditRule("Domain\\Tester ", FileSystemRights.CreateDirectories, AuditFlags.Success))

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