Question

vb.net 操作文件夹用户权限

vb.net 操作文件夹用户权限

如上图 所圈域

Answer 1

'
' 需要添加以下命名空间：
' Imports System.IO
' Imports System.Security.AccessControl
' */

Dim sPath As String = Server.MapPath(文件夹名称字符串)
Directory.CreateDirectory(sPath)
addpathPower(sPath, "ASPNET", "FullControl")

'////////////////////////////////////////////////

Public Sub addpathPower(ByVal pathname As String, ByVal username As String, ByVal power As String)

Dim dirinfo As DirectoryInfo = New DirectoryInfo(pathname)

If (dirinfo.Attributes & FileAttributes.ReadOnly) <> 0 Then
dirinfo.Attributes = FileAttributes.Normal
End If

'取得访问控制列表
Dim dirsecurity As DirectorySecurity = dirinfo.GetAccessControl()

Select Case power
Case "FullControl"
dirsecurity.AddAccessRule(New FileSystemAccessRule(uername,FileSystemRights.FullControl,InheritanceFlags.ContainerInherit,PropagationFlags.InheritOnly,AccessControlType.Allow))
Exit Sub
Case "ReadOnly"
dirsecurity.AddAccessRule(New FileSystemAccessRule(username,FileSystemRights.Read,AccessControlType.Allow))
Exit Sub
Case "Write"
dirsecurity.AddAccessRule(New FileSystemAccessRule(username,FileSystemRights.Write,AccessControlType.Allow))
Exit Sub
Case "Modify"
dirsecurity.AddAccessRule(New FileSystemAccessRule(username,FileSystemRights.Modify,AccessControlType.Allow))
Exit Sub
End Select
dirinfo.SetAccessControl(dirsecurity)
End Sub