Imports System.IO
Imports System.Security.AccessControl
Public Shared Sub AddFullAccessRule(ByVal path As String)
Dim fileInfo As New FileInfo(path)
Dim fileSec As FileSecurity = fileInfo.GetAccessControl()
Dim accessRule As New FileSystemAccessRule("Everyone", FileSystemRights.FullControl, AccessControlType.Allow)
fileSec.AddAccessRule(accessRule)
fileInfo.SetAccessControl(fileSec)
If (fileInfo.Attributes And FileAttributes.ReadOnly) = FileAttributes.ReadOnly Then
fileInfo.Attributes = FileAttributes.Normal
End If
End Sub