şöyle bir basit kod var ama dışardan farklı yazılım ile açılabilir
bunu import et
Imports System.Security.AccessControl
sonra butona yada bir şeye yapıştır bu kodu
Dim yol as string = "klasörün konumu" 'değiştirmeyi unutma
Dim fs1 As FileSystemSecurity = File.GetAccessControl(Yol)
fs1.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
File.SetAccessControl(Yol, fs1)
açmak içinse:
Dim fs As FileSystemSecurity = File.GetAccessControl(Yol)
fs.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
File.SetAccessControl(Yol, fs)