根据用户的单位对文件管理器中非本单位目录进行隐藏，参照帮助在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
加好友 
发短信
Post By：2021/2/20 12:36:00 [只看该作者]
