如何阻止对任何文件或 exe vb.net 的访问?
How to block access to any file or exe vb.net?
如何在 vb.net 的 运行 时间内阻止和取消阻止文件或可执行文件永久打开?
您可以使用此代码,您可以使用 Environment.UserName
获取用户名,这将锁定任何类型的文件,它也会锁定文件夹:
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)
要解锁 file/folder 只需像这样删除 AccessRule
:
Dim FSS As FileSystemSecurity = File.GetAccessControl(Application.StartupPath & "\quarantine\" & NewTextDoc.Text)
FSS.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
File.SetAccessControl(Application.StartupPath & "\quarantine\" & NewTextDoc.Text, FSS)
最后希望对您有所帮助:)
如何在 vb.net 的 运行 时间内阻止和取消阻止文件或可执行文件永久打开?
您可以使用此代码,您可以使用 Environment.UserName
获取用户名,这将锁定任何类型的文件,它也会锁定文件夹:
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)
要解锁 file/folder 只需像这样删除 AccessRule
:
Dim FSS As FileSystemSecurity = File.GetAccessControl(Application.StartupPath & "\quarantine\" & NewTextDoc.Text)
FSS.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
File.SetAccessControl(Application.StartupPath & "\quarantine\" & NewTextDoc.Text, FSS)
最后希望对您有所帮助:)