In my application, I create data and log folders that must be shared by all users using this computer. I did a lot of research, and I found a function that is supposed to grant full access to every users of a folder and its children. However if right-click properties on my folder, the access is unchanged.
How should I grant full access to all users of a folder and its children (I don't care who created it, all users should be able to read and write to that folder)?
Public Sub GrantAllAccess(ByVal Folder As String)
Dim DomainUser As String = Environment.UserDomainName & "\" & Environment.UserName
Dim Dinfo As New DirectoryInfo(Folder)
Dim Dsecurity As DirectorySecurity = Dinfo.GetAccessControl
Dsecurity.AddAccessRule(New FileSystemAccessRule(DomainUser, FileSystemRights.FullControl, InheritanceFlags.ContainerInherit, PropagationFlags.None, AccessControlType.Allow))
Dsecurity.AddAccessRule(New FileSystemAccessRule(DomainUser, FileSystemRights.FullControl, InheritanceFlags.ObjectInherit, PropagationFlags.InheritOnly, AccessControlType.Allow))
Catch ex As Exception