vb.net文件控制权限,vbs权限获取

怎样用vb设置文件夹权限

设置权限的方法：

发展壮大离不开广大客户长期以来的信赖与支持，我们将始终秉承“诚信为本、服务至上”的服务理念，坚持“二合一”的优良服务模式，真诚服务每家企业，认真做好每个细节，不断完善自我，成就企业，实现共赢。行业涉及护栏打桩机等，在成都网站建设、营销型网站建设、WAP手机网站、VI设计、软件开发等项目上具有丰富的设计经验。

1、随意的到电脑中选择一个文件夹，点击右键，选择属性选项。

2、在弹出来的属性窗口中切换到安全这一栏，然后选择最下方的高级。

3、在高级设置窗口中，咱们选择所有者，然后点击编辑，最后是确定。

4、在名称这一栏中选择所有者，然后将下方的“替换子容器和对象的所有者”勾选上，最后确定退出设置窗口。

5、选择当前所有者即可。

vb.net，如何设置/读取 某用户 对 某文件夹 的访问权限？

不建议用在应用程序中操作共享文件或共享文件夹，这个东西往往会把软件做得过于死板。

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

'

' 需要添加以下命名空间：

' 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

如何实现VB.NET的权限控制

实现权限要求数据库结构如下：

用户表（id，用户名，密码，角色id）

角色表（id，角色名，权限id）

权限表（id，权限名，链接地址）