VB устанавливает разрешения на машине разработчика, но не на машине клиента - PullRequest
Новая
       9

VB устанавливает разрешения на машине разработчика, но не на машине клиента

0 голосов
/ 22 ноября 2018

Я использую следующий код (который я нашел в другом посте), чтобы добавить права «записи» для учетной записи «пользователя» в папке, и он отлично работает на моей машине для разработки.Однако при развертывании его на клиентской машине ничего не происходит.Я не получаю сообщение об ошибке любого типа, просто не меняются права доступа к папке. 

Sub SetAllPermissions()
    Dim sFolderPath As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData) & "\LTi"
    Dim sUserAccount As String = "Users"

    Dim oFolderInfo As IO.DirectoryInfo = New IO.DirectoryInfo(sFolderPath)
    Dim oFolderAcl As New DirectorySecurity(sFolderPath, System.Security.AccessControl.AccessControlSections.Access)

    oFolderAcl.AddAccessRule(New FileSystemAccessRule(sUserAccount,
                                                      FileSystemRights.Write,
                                                      InheritanceFlags.ContainerInherit Or InheritanceFlags.ObjectInherit, PropagationFlags.InheritOnly,
                                                      AccessControlType.Allow))

    oFolderInfo.SetAccessControl(oFolderAcl)

    oFolderAcl = Nothing
    oFolderInfo = Nothing

    MsgBox("Done")
End Sub
...