Dim fileSec = System.IO.File.GetAccessControl("폴더", Security.AccessControl.AccessControlSections.Access)
Dim accessRules = fileSec.GetAccessRules(True, True, GetType(System.Security.Principal.NTAccount))
For Each rule As System.Security.AccessControl.FileSystemAccessRule In accessRules
MsgBox(rule.IdentityReference.Value)
MsgBox(rule.AccessControlType.ToString())
MsgBox(rule.FileSystemRights.ToString())
Next