BeforeEnterFolder

在进入某个目录之前执行，通过此事件可以禁止用户访问某些目录。

e参数属性：

示例一

假定根目录下有个名为“报价单”的目录，希望禁止非销售分组的用户进入此目录，可以将BeforeEnterFolder事件代码设置为：

If e.FolderName = "/报价单" Then
    If User.Group <> "销售" Then
        e.Cancel = True
        MessageBox.Show("你无访问此目录的权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

示例二

假定每个用户只能访问自己的目录，同时有一个名为“公共”的目录，所有用户都能访问；此外如果用户分组为经理，则能访问所有用户的目录。

首先我们在FTP的根目录下创建一个名为“公共”的目录；之后为每个用户单独创建一个目录，目录名为用户名，如“张三”、“李四”。

最后将BeforeEnterFolder事件代码设置为：

If e.FolderName = "/" OrElse e.FolderName = "/公共" OrElse e.FolderName = "/" & User.Name Then
ElseIf User.Group = "经理" Then
Else
    e.Cancel = True
    MessageBox.Show("你无权访问他人目录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

提示：

我们也可以利用BeforeListDetails事件，只显示用户有权访问的目录和文件，断了用户非法访问的念头。