移动时更改文件权限

Question

Q) 我需要将文件从源移动到目标。在将文件移动到目标位置后，它在源文件夹中具有只读权限，它仍然具有我想更改的只读权限。一个表达式。

Dim currentUser As String = System.Security.Principal.WindowsIdentity.GetCurrent().Name
Dim fSecurity As System.Security.AccessControl.FileSecurity = File.GetAccessControl(filePath)

FileSystemAccessRule(currentUser,
                     FileSystemRights.FullControl,
                     AccessControlType.Allow)
File.SetAccessControl(filePath, fSecurity)