BeforeEnterFolder事件代码设置为:
If e.FolderName = "/" OrElse e.FolderName = "/公共" OrElse e.FolderName = "/" & User.Name ThenElseIf User.Group = "经理" ThenElse e.Cancel = True MessageBox.Show("你无权访问他人目录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)End If
这些代码放哪里可以触发运行尼?