اعمال تغییرات در Permissions یک فایل یا یک فولدر

[omid-vbAuto]

خوب اصولا Permissions به چه دردی می خوره؟

و چطوری این کارو بکنیم؟ برخی از کدها رو امتحان کردم جواب نداده.

[omid-vbAuto]

من این قطعه کد زیر رو دارم اما نمی دونم کار میکنه یا نه؟!



Dim FolderPath As String = "C:\c1"

Dim UserAccount As String = Environ("COMPUTERNAME") & "\" & Environ("USERNAME")
Dim FolderInfo As IO.DirectoryInfo = New IO.DirectoryInfo(FolderPath)

Dim FolderAcl As New DirectorySecurity

FolderAcl = FolderInfo.GetAccessControl()

FolderAcl.AddAccessRule(New FileSystemAccessRule(UserAccount, FileSystemRights.Write, InheritanceFlags.ContainerInherit Or InheritanceFlags.ObjectInherit, PropagationFlags.None, AccessControlType.Allow))

FolderInfo.SetAccessControl(FolderAcl)

[omid-vbAuto]

دوستان و اساتید لطفا راهنمائی کنید.