BeforeDownload

在下载文件之前执行，通过此事件可以禁止用户下载某些文件。

e属性属性：

示例

假定根目录下有个名为“报价单”的目录，希望禁止非销售分组的用户下载此目录下的文件，可将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事件，只显示用户有权下载的文件，断了用户非法下载的念头。