如何拒绝访问vb 10中的文件夹

Question

我想编写一个程序，其中任何用户都无法访问该文件夹。我将它的属性数设置为7因此它变为隐藏，系统文件和只读。但是任何用户都可以访问该文件夹。

我想要一个代码，其中显示一个消息框，表示访问在打开时被拒绝。希望有人能帮助我。

提前致谢

Answer 1

您可以使用ICACLS进行操作，使用System.Diagnostics.Process.Start在代码中运行

' Your path here
Dim path As String = "X:\Path\Follows\Here.x"
Dim cmd As String = "icacls " & path & " /deny *S-1-1-0:(OI)(CI)(W,D,X)"
' You can also just use Process.Start even without "Imports System.Diagnostics"
System.Diagnostics.Process.Start(cmd)