以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  BeforeListDetails的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149191)
--  作者：dengk03
--  发布时间：2020/4/26 9:27:00
--  BeforeListDetails的问题
For Each Info() As String In e.Infos
        If Info(0) <> _username AndAlso Info(2) = "D" Then \'隐藏归档目录
            e.Remove(Info)
        End If
next

我希望每个人都只能浏览自己姓名的文件夹下的全部内容，包括可以在自己姓名文件夹下再新建文件夹。但是上面的代码会导致自己名下新建的文件夹自己看不到。该如何实现我的需求呢？
--  作者：有点蓝
--  发布时间：2020/4/26 10:46:00
--  
11
[此贴子已经被作者于2020/4/26 10:51:55编辑过]
--  作者：有点蓝
--  发布时间：2020/4/26 10:57:00
--  
CurFolder可以返回完整路径，这样判断一下

If e.CurFolder.Contains("/" & _username &  "/") = false then 如果上级目录是_username这个名称的就不需要判断子目录了
For Each Info() As String In e.Infos
        If Info(0) <> _username AndAlso Info(2) = "D" Then \'隐藏归档目录
            e.Remove(Info)
        End If
next
end if