علی جان شرمنده یکم طول کشید
تازگی توی یه پروژه ای با همین persmission ها کار کردم کودش رو واست میزارم شاید کمکت کرد.
Dim Rights As FileSystemRights = DirectCast(0, FileSystemRights)
Rights = FileSystemRights.FullControl
Dim AccessRule As New FileSystemAccessRule("everyone", Rights, InheritanceFlags.None, PropagationFlags.NoPropagateInherit, AccessControlType.Allow)
Dim Info As New DirectoryInfo(My.Application.Info.DirectoryPath)
Dim Security As DirectorySecurity = Info.GetAccessControl(AccessControlSections.Access)
Dim Result As Boolean = False
Security.ModifyAccessRule(AccessControlModification.[Set], AccessRule, Result)
If Not Result Then
End If
Dim iFlags As InheritanceFlags = InheritanceFlags.ObjectInherit
iFlags = InheritanceFlags.ContainerInherit Or InheritanceFlags.ObjectInherit
AccessRule = New FileSystemAccessRule("everyone", Rights, iFlags, PropagationFlags.InheritOnly, AccessControlType.Allow)
Result = False
Security.ModifyAccessRule(AccessControlModification.Add, AccessRule, Result)
If Not Result Then
End If
Info.SetAccessControl(Security)
توی ان کد فولدر و فایل های مسیر نصب نرم افزار رو دسترسی میده
حالا میتونی مسیرشو خودت عوض کنی
امیدوارم کمکت کنه