Αν και δεν το προτείνω (γιατί κάτι τέτοια βλέπουν οι IT Pros και μας κράζουν)
Dim sid As New Security.Principal.SecurityIdentifier("S-1-1-0") 'sid για Everyone
Dim acnt As System.Security.Principal.NTAccount = CType(sid.Translate(GetType(System.Security.Principal.NTAccount)), System.Security.Principal.NTAccount)
Dim newRule As New Security.AccessControl.FileSystemAccessRule(acnt, Security.AccessControl.FileSystemRights.FullControl, Security.AccessControl.AccessControlType.Allow)
Dim dir As String = "C:\Test"
Dim dirSec As System.Security.AccessControl.DirectorySecurity = New System.Security.AccessControl.DirectorySecurity(dir, Security.AccessControl.AccessControlSections.All)
dirSec.AddAccessRule(newRule)
Don't try to argue with the machine
Elias Markelis
MCPD,MCT