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