BeforeUpload
在上传文件之前执行,通过此事件可以完全禁止用户上传文件,或允许用户只能上传特定类型的文件,或只能将文件上传到指定的目录。
e属性属性:
LocalFile | 字符型,要上传的本地文件,含路径。 |
CurFolder | 字符型,FTP的当前目录,文件将被上传到此目录。 |
Cancel | 逻辑型,设置为True将取消本次上传操作。 |
CancelAll | 逻辑型,设置为True取消本次及后续上传操作。 |
FTPName | 字符型,返回FTP的FTPName属性 |
示例
假定FTP根目录下有个名为"归档"的子目录,要求只有经理级别的用户才能上传文件到此目录,为此可以将BeforeUpload事件代码设置为:
If
e.CurFolder =
"/归档" OrElse
Left(e.CurFolder,
4) = "/归档/"
Then
If User.Group
<> "经理" Then
e.Cancelall=
True
MessageBox.Show("只能经理级别的用户才能归档文件!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End
If
End
If