title: Folder permission?
body: <p>This is the code for function that I use for setting folder permission:</p>
  
  <pre><code> Public Sub AddFileSecurity(ByVal filePath As String, ByVal username As String, ByVal power As String)
  
          Dim dirinfo As DirectoryInfo = New DirectoryInfo(filePath)
  
          Dim dirsecurity As DirectorySecurity = dirinfo.GetAccessControl()
  
          Select Case power
  
              Case "FullControl"
  
                  dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.FullControl, InheritanceFlags.ObjectInherit, PropagationFlags.InheritOnly, AccessControlType.Allow))
  
                  dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.FullControl, InheritanceFlags.None, PropagationFlags.InheritOnly, AccessControlType.Allow))
  
                  dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.FullControl, InheritanceFlags.ContainerInherit, PropagationFlags.InheritOnly, AccessControlType.Allow))
  
              Case "ReadOnly"
  
                  dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.Read, AccessControlType.Allow))
  
              Case "Write"
  
                  dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.Write, InheritanceFlags.ContainerInherit, PropagationFlags.InheritOnly, AccessControlType.Allow))
  
                  dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.Write, InheritanceFlags.None, PropagationFlags.InheritOnly, AccessControlType.Allow))
  
                  dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.Write, InheritanceFlags.ObjectInherit, PropagationFlags.InheritOnly, AccessControlType.Allow))
  
              Case "Modify"
  
                  dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.Modify, AccessControlType.Allow))
  
          End Select
  
          dirinfo.SetAccessControl(dirsecurity)
  
      End Sub
  
  
  
  Public Sub RemoveFileSecurity(ByVal filePath As String, ByVal username As String, ByVal power As String)
  
  Dim dirinfo As DirectoryInfo = New DirectoryInfo(filePath)
  
  Dim dirsecurity As DirectorySecurity = dirinfo.GetAccessControl()
  
  Select Case power
  
      Case "FullControl"
  
          dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.FullControl, InheritanceFlags.ObjectInherit, PropagationFlags.InheritOnly, AccessControlType.Deny))
  
          dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.FullControl, InheritanceFlags.None, PropagationFlags.InheritOnly, AccessControlType.Deny))
  
          dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.FullControl, InheritanceFlags.ContainerInherit, PropagationFlags.InheritOnly, AccessControlType.Deny))
  
      Case "ReadOnly"
  
          dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.Read, AccessControlType.Deny))
  
      Case "Write"
  
          dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.Write, InheritanceFlags.ContainerInherit, PropagationFlags.InheritOnly, AccessControlType.Deny))
  
          dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.Write, InheritanceFlags.None, PropagationFlags.InheritOnly, AccessControlType.Deny))
  
          dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.Write, InheritanceFlags.ObjectInherit, PropagationFlags.InheritOnly, AccessControlType.Deny))
  
      Case "Modify"
  
          dirsecurity.AddAccessRule(New FileSystemAccessRule(username, FileSystemRights.Modify, AccessControlType.Deny))
  
  End Select
  
  dirinfo.SetAccessControl(dirsecurity)
  
  End Sub
  </code></pre>
  
  <p>Now when i lock folder with   AddFileSecurity("D:\Protect", "UserUser", "FullControl"), after that i can't unlock folder!</p>
  
  <p>How I can unlock this folder?</p>
  
  <p>Thanks!</p>