以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142531)

--  作者:LXP166
--  发布时间:2019/10/30 9:19:00
--  [求助]
根目录下合同子目录下 放置合同文件,想控制非销售部门的人看到合同,用下列程序控制不住,打开文件仍然弹出合同窗口

If
 e.FolderName "/合同" Then
    If User.Group <> "销售" Then
        e.Cancel = 
True
        MessageBox.Show("你无访问此目录的权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End 
If
End
 If
--  作者:有点蓝
--  发布时间:2019/10/30 9:27:00
--  
代码写在什么事件的?

 msgbox(e.FolderName) \'看看真正的目录名