vb.net建立文件夹并给予帐号完全控制权限

Public Shared Sub Create(ByVal user As String, ByVal path As String)

Dim fSec As New DirectorySecurity

My.Computer.FileSystem.CreateDirectory(path)

fSec.AddAccessRule(New FileSystemAccessRule(user, FileSystemRights.FullControl, InheritanceFlags.ContainerInherit, PropagationFlags.InheritOnly, AccessControlType.Allow))

fSec.AddAccessRule(New FileSystemAccessRule(user, FileSystemRights.FullControl, InheritanceFlags.None, PropagationFlags.InheritOnly, AccessControlType.Allow))

fSec.AddAccessRule(New FileSystemAccessRule(user, FileSystemRights.FullControl, InheritanceFlags.ObjectInherit, PropagationFlags.InheritOnly, AccessControlType.Allow))

System.IO.Directory.SetAccessControl(path, fSec)

End Sub