BeforeDownload
在下载文件之前执行,通过此事件可以禁止用户下载某些文件。
e属性属性:
File | 字符型,要下载的文件名,含路径。 |
Cancel | 逻辑型,设置为True取消本次下载操作。 |
CancelAll | 逻辑型,设置为True取消本次及后续下载操作。 |
ModifyTime | 日期型,返回此文件或目录最近一次修改的日期(对列窗口无效)。 |
FTPName | 字符型,返回FTP的FTPName属性 |
示例
假定根目录下有个名为“报价单”的目录,希望禁止非销售分组的用户下载此目录下的文件,可将BeforeDownLoad事件代码设置为:
If
Left(e.File,5)
=
"/报价单/" Then
If User.Group
<> "销售" Then
e.Cancel
= True
MessageBox.Show("你无权下载报价文件!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End
If
End
If
示例二
如果用户在报价单目录下选择了100个文件下载,那么上述代码会弹出100次提示,用户可能会感到愤怒崩溃.
要解决这个问题很简单,只需将CancelAll设置为True:
If
Left(e.File,5)
=
"/报价单/" Then
If User.Group
<> "销售" Then
e.CancelAll
= True
MessageBox.Show("你无权下载报价文件!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End
If
End
If
提示:
我们也可以利用BeforeListDetails事件,只显示用户有权下载的文件,断了用户非法下载的念头。