| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]文件管理器的目录隐藏问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160752) |
| -- 作者：lojel -- 发布时间：2021/2/20 12:36:00 -- [求助]文件管理器的目录隐藏问题 根据用户的单位对文件管理器中非本单位目录进行隐藏，参照帮助在BeforeListDetails中将代码设置为： If _UserWorkplace = "教务处" Then For Each Info() As String In e.Infos If Info(0) = "办公室" AndAlso Info(2) = "D" Then \'隐藏目录 e.Remove(Info) End If If Info(0) = "教保处" AndAlso Info(2) = "D" Then \'隐藏目录 e.Remove(Info) End If Next End If 后可以实现相应效果，但如果单位多的话这代码就感觉效率不高了。 于是换个思路，判断如果单位不等的话就隐藏，但改成下述代码后将所有目录都隐藏了，请看看哪里出了问题，谢谢： If _UserGroup <> "超级用户" Then For Each Info() As String In e.Infos If Info(0) <> "\'& _UserWorkplace &\' " AndAlso Info(2) = "D" Then \'隐藏非本单位目录 e.Remove(Info) End If Next End If |
| -- 作者：有点蓝 -- 发布时间：2021/2/20 13:29:00 -- 不是条件表达式，直接比较即可 If Info(0) <> _UserWorkplace AndAlso Info(2) = "D" Then \'隐藏非本单位目录
|
| -- 作者：lojel -- 发布时间：2021/2/20 14:36:00 -- 谢谢蓝版！搞定~ |