Setting file and folder permissions

发布时间：2020-12-17 08:07:36 所属栏目：百科来源：网络整理

导读：http://www.vbforums.com/showthread.php?616021-Setting-file-and-folder-permissions There are a few examples of this already on the web but most of them are over complicated and dont just give you a simple example so I thought it might be wo

http://www.vbforums.com/showthread.php?616021-Setting-file-and-folder-permissions

There are a few examples of this already on the web but most of them are over complicated and dont just give you a simple example so I thought it might be worth writing one here.

Basically this code can be used to grant or restrict access for a specific user to a folder (see post #6 in this thread for example of setting permissions on a file instead of a folder). There are several things that you can play around with in this example to modify the effects (e.g deny permission instead of granting permission,modify the inheritance of the new permission,change the specific permissions issued etc etc) but if you run it as it is then it will grant the user Modify access to the folder and this permission will be inherited by any child objects within the folder. The new permission will also just be added to the folder's permission list,it will not replace the permissions already on the folder - If you want to completely remove all of the existing permissions on the folder when you add this new permission then you uncomment the line that is commented out near the end of the code.

vb Code:

  
  
   
    
     
      
       
       'At the top of your code  
       
     
        Imports System. 
       Security. 
       AccessControl 
       
     
         
       
      
       Dim FolderPath 
       As 
       String = 
       "C:TestingFolder" 
       'Specify the folder here

 
       Dim UserAccount 
       As 
       String = 
       "MYDOMAINsomeuser" 
       'Specify the user here 
      

 
       Dim FolderInfo 
       As IO. 
       DirectoryInfo = 
       New IO. 
       DirectoryInfo 
       (FolderPath 
       ) 
      

 
       Dim FolderAcl 
       As 
       New DirectorySecurity 
      

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

 
       'FolderAcl.SetAccessRuleProtection(True,False) 'uncomment to remove existing permissions 
      

        FolderInfo. 
       SetAccessControl 
       (FolderAcl 
       ) 
      

This line is the main place where you might want to modify things to change the behavior of the permissions:

vb Code:

Hopefully it is fairly obvious which parts of that line you need to change to get the desired effect that you want. For example if you want to just grant the user Read access instead of Modify then the line might look like this:

vb Code:

  
  
   
    
     
     ReadAndExecute,AccessControlType. 
       Allow 
       ) 
       )

If you want to set permissions for files instead of folders,just use the same technique but use the FileSecurity class instead of DirectorySecurity.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!