Ir para conteúdo
Faça parte da equipe! (2024) ×

[N]ARUTO_
 Compartilhar

Posts Recomendados

-[ Bloqueador de Pasta ]-

 

1 TextBox

3 Button

 

Button 1 : Procurar

Button 2 : Desbloquear

Button 3 : Bloquear

 

Button 1 :

 

With FolderBrowserDialog1

If .ShowDialog() = Windows.Forms.DialogResult.OK Then

TextBox1.Text = .SelectedPath

End If

End With

 

Button 2 :

 

If TextBox1.Text = "" Then

MsgBox("Selecione uma pasta", MsgBoxStyle.Exclamation, "")

Else

Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)

fs.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))

File.SetAccessControl(TextBox1.Text, fs)

MsgBox("Pasta desbloqueada ", MsgBoxStyle.Information, "")

End If

 

Button 3:

 

 

If TextBox1.Text = "" Then

MsgBox("Selecione uma Pasta", MsgBoxStyle.Exclamation, "")

Else

Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)

fs.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))

File.SetAccessControl(TextBox1.Text, fs)

MsgBox("Pasta bloqueada", MsgBoxStyle.Information, "")

End If

 

Tutorial Simples

kp6mVWB.gif

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.