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事件,只显示用户有权下载的文件,断了用户非法下载的念头。


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