主题：BeforeListDetails问题

请教老师，下面在BeforeListDetails设置的条件，不起作用，是哪里写错代码了，想实现之前2秒上传的文件，在文件管理器进行隐藏不可见

If e.CurFolder = "报价单"  Then
    For Each Info() As String In e.Infos
        Dim md As Date = CDate(Info(1)) '第二个元素虽然存储的是日期,但类型是字符串,需要先转换为日期.
        If md.AddSeconds(2) < DateTime.Now Then
            e.Remove(Info)
        End If
    Next
End If

加入msgbox，看弹出什么

If e.CurFolder = "报价单"  Then
msgbox(1)
    For Each Info() As String In e.Infos
msgbox(Info(1))
        Dim md As Date = CDate(Info(1)) '第二个元素虽然存储的是日期,但类型是字符串,需要先转换为日期.
        If md.AddSeconds(2) < DateTime.Now Then
            e.Remove(Info)
        End If
    Next
End If

老师，上传文件或不上传载文件，打开文件管理器，弹出1 和已上传文件的时间

如果把根目录改为“/报价单”，是不显示已上传的文件，但新文件又无法上传，提示，不能访问上级目录...                    此时单元格里无文件，但已上传到服务器里面了，里面有上传的文件

BeforeCreateFolder 这里加了如下代码

If User.Type <> UserTypeEnum.Administrator Then
    e.Cancel = True
    MessageBox.show("你无权创建目录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

1、弹出msgbox(e.CurFolder)看看，你可以去掉 If e.CurFolder = "报价单"  Then 的判断的啊；

2、没看懂你现在要做什么，相关事件写了什么代码，请删除其余代码，单独执行此BeforeListDetails事件的代码。