vb.net windows7下設(shè)置程序管理員權(quán)限(會的進(jìn))

VB.net（VS2008）里面比C#還好弄，不需要自己加manifest，直接在項目屬性的“應(yīng)用程序”里面點擊“查看UAC設(shè)置”，在新打開的app.manifest里面把 requestedExecutionLevel level="asInvoker" uiAccess="false" / 替換成 requestedExecutionLevel level="requireAdministrator" uiAccess="false" / 再編譯就行了。

公司主營業(yè)務(wù)：成都網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè)、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)推出橋東免費做網(wǎng)站回饋大家。

vb.net，如何設(shè)置/讀取 某用戶 對 某文件夾 的訪問權(quán)限？

不建議用在應(yīng)用程序中操作共享文件或共享文件夾，這個東西往往會把軟件做得過于死板。

如何實現(xiàn)VB.NET的權(quán)限控制

實現(xiàn)權(quán)限要求數(shù)據(jù)庫結(jié)構(gòu)如下：

用戶表（id，用戶名，密碼，角色id）

角色表（id，角色名，權(quán)限id）

權(quán)限表（id，權(quán)限名，鏈接地址）

vb.net 操作文件夾用戶權(quán)限

'

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

' 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