Denegar Acceso a Archivo o Directorios [SUB]

[Keyen Night]

Ufff como me ha costado hacer este Sub .__. y la traigo al mejor foro

Actualizado tambien para archivos...

Bueno marca los permisos de una carpeta o archivo para que salga

Acceso Denagado a: "C:\XXX"

Al intentar eliminar, explorar, renombrar, etc, etc, etc; quita todos los permisos, pero tambien los restablece

Primero debemos Importar:

Código (vb) [Seleccionar] Expandir

Imports System.IO
Imports System.Security.AccessControl

y e aqui el Sub ^^

Código (vb) [Seleccionar] Expandir


   Public Sub ProtectedFolderOrFile(ByVal F As String, ByVal bool As Boolean)        
Dim dInfo As New DirectoryInfo(F), _
        dSecurity As DirectorySecurity = dInfo.GetAccessControl()

       Select Case bool
           Case True
               dSecurity.SetAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Deny))
           Case False
               dSecurity.RemoveAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Deny))
               dInfo.SetAccessControl(dSecurity)
               dSecurity.AddAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Allow))
       End Select
       dInfo.SetAccessControl(dSecurity)
   End Sub