Dim redirectionFolder As String = "D:\test\subtest\"
Dim everyOne As New FileSystemAccessRule("Everyone", FileSystemRights.FullControl, AccessControlType.Allow)
Dim dirSecurity As New DirectorySecurity(redirectionFolder, AccessControlSections.Group)
dirSecurity.AddAccessRule(everyOne)
Directory.SetAccessControl(redirectionFolder, dirSecurity)
|