A Dim objSecurity As New FileSecurity( _ "MyData.xml", AccessControlSections.All) objSecurity.SetAccessRuleProtection(True, True) File.SetAccessControl("MyData.xml", objSecurity)
B Dim objSecurity As FileSecurity = _ File.GetAccessControl("MyData.xml") objSecurity.SetAccessRuleProtection(True, True)
C Dim objSecurity As New FileSecurity() objSecurity.SetAccessRuleProtection(True, True) File.SetAccessControl("MyData.xml", objSecurity)
D Dim objSecurity As FileSecurity = _ File.GetAccessControl("MyData.xml") objSecurity.SetAuditRuleProtection(True, True) File.SetAccessControl("myData.xml", objSecurity)