Foro de elhacker.net

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

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:

Imports System.IO
Imports System.Security.AccessControl

y e aqui el Sub ^^

    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