visual basic ♂ Bloqueador de Pasta ♂

[[N]ARUTO_ 101]

-[ 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 :¥