BeforeListDetails

在列出文件和目录之前执行,通过此事件可以隐藏部分目录和文件。

e参数属性:

CurFolder 字符型,FTP的当前目录,文件将被上传到此目录。
Infos 集合,包括即将显示的文件和目录信息。
Infos的元素是字符串数组,每个数组包括三个元素。
对于文件,三个元素分别问:文件名(不含路径),最近一次修改时间,文件大小。
对于目录,三个元素分别为:目录名(不含路径),最近一次修改时间、字符"D",用于表示这是一个目录。
FTPName 字符型,返回FTP的FTPName属性

e参数方法:

Remove  将某个文件或目录从显示内容中排除掉。

示例一

假定对于非经理分组的用户,要求:

1、隐藏“归档”目录。
2、隐藏后缀名为"rar"的文件。
3、隐藏"/VIP"目录下的"客户名单.xls"文件。

为此可以将BeforeListDetails事件代码设置为:

If User.Group <> "经理" Then
    For Each Info() As String In e.Infos
        If Info(0) = "归档" AndAlso Info(2) = "D" Then '隐藏归档目录
            e.Remove(Info)
        End If
        If Right(Info(0),4) = ".rar" Then '隐藏后缀名为rar的文件
            e.Remove(Info)
        End If
        If  Info(0) = "客户名单.xls" AndAlso e.CurFolder = "/VIP" Then '隐藏VIP目录下的客户名单.xls
           
e.Remove(Info)
        End If
    Next

End
If

示例二

假定希望隐藏"报价单"目录下修改日期为3个月之前的文件,可以将BeforeListDetails事件代码设置为:

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

End
If

 

 


本页地址:http://www.foxtable.com/webhelp/topics/3260.htm