Private Sub AddFileSecurity(ByVal fileName As String, ByVal account As String, _ByVal rights As FileSystemRights, ByVal controlType As AccessControlType)
' Get a FileSecurity object that represents the
fSecurity.AddAccessRule(
fSecurity.SetOwner(currentUser)
File.SetAccessControl(fileName, fSecurity)
MsgBox(ex.ToString)