set File Permission with mini filter driver

Dim Rights As FileSystemRights = DirectCast(0, FileSystemRights)
Rights = FileSystemRights.FullControl
Dim AccessRule As New FileSystemAccessRule("everyone", Rights, InheritanceFlags.None, PropagationFlags.NoPropagateInherit, AccessControlType.Allow)

Dim Info As New DirectoryInfo(My.Application.Info.DirectoryPath)
Dim Security As DirectorySecurity = Info.GetAccessControl(AccessControlSections.Access)

Dim Result As Boolean = False
Security.ModifyAccessRule(AccessControlModification.[Set], AccessRule, Result)

If Not Result Then
End If

Dim iFlags As InheritanceFlags = InheritanceFlags.ObjectInherit
iFlags = InheritanceFlags.ContainerInherit Or InheritanceFlags.ObjectInherit

AccessRule = New FileSystemAccessRule("everyone", Rights, iFlags, PropagationFlags.InheritOnly, AccessControlType.Allow)
Result = False
Security.ModifyAccessRule(AccessControlModification.Add, AccessRule, Result)

If Not Result Then
End If

Info.SetAccessControl(Security)