[Code] Block Acess Any Folder/File / Bloquear Acesso a Pasta ou Arquivos VB.NET

Ir em baixo

[Code] Block Acess Any Folder/File / Bloquear Acesso a Pasta ou Arquivos VB.NET

Mensagem por uNreal em 18/10/2018, 23:14

Código:
Imports System.Security.AccessControl
Imports System.IO

Block
Código:
Dim FSS As FileSystemSecurity = File.GetAccessControl(Application.StartupPath & "\quarantine\" & NewTextDoc.Text)
FSS.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
File.SetAccessControl(Application.StartupPath & "\quarantine\" & NewTextDoc.Text, FSS)

Unlock
Código:
Dim FSS As FileSystemSecurity = File.GetAccessControl(Application.StartupPath & "\quarantine\" & NewTextDoc.Text)
FSS.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Allow))
File.SetAccessControl(Application.StartupPath & "\quarantine\" & NewTextDoc.Text, FSS)

Crétido:Mousa Alfhaily
avatar
uNreal
ADM
ADM


Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum