Setting Dir Permissions programmatically doesn't work

[Becks25Not]

Hi All,

I have this code here

		Dim dir As String = "D:\test\"
		Dim Account As String = "BUILTIN\Users"
		Dim act As Security.AccessControl.AccessControlType = Security.AccessControl.AccessControlType.Allow
		Dim fsar As Security.AccessControl.FileSystemAccessRule = New Security.AccessControl.FileSystemAccessRule(Account, FileSystemRights.Modify, act)
		Dim info As IO.DirectoryInfo = New DirectoryInfo(dir)
		Dim ds As Security.AccessControl.DirectorySecurity = info.GetAccessControl(AccessControlSections.Access)

		ds.AddAccessRule(fsar)
		info.SetAccessControl(ds)

When I run it, if you look at the security on the folder, this new security appears under the Advanced tab. Hoewever, it still does not allow the Users group to Modify. Any ideas?

Thanks in advanced!
Becca

 

[Becks25Not]

I figured this out... it was the right combination of the propagation flags and inheritance to make files and subfolders work as desired!!