以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ftp文件管理器禁止返回上级目录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143663)

--  作者:qaz17909
--  发布时间:2019/11/30 22:35:00
--  ftp文件管理器禁止返回上级目录
强烈建议给ftp的OpenManager增加一个自定义属性,当定义了RootDir之后,可以允许或者禁止用户返回上级目录,因为这个涉及到权限问题
--  作者:有点蓝
--  发布时间:2019/12/1 20:28:00
--  
可以看看:http://www.foxtable.com/webhelp/topics/3251.htm
--  作者:qaz17909
--  发布时间:2019/12/1 21:35:00
--  
我首先定义了ftp1.RootDir = “\\阿里巴巴有限公司\\附件\\A001\\”,然后用ftp1.OpenManager()可以直接到A001子目录下浏览该目录下的文件,现希望用户仅能浏览“附件”的目录下文件而无法返回到“阿里巴巴有限公司”目录,我在网络监视器的BeforeEnterFolder事件中写代码如下,没有实现效果,请问应如何写代码?
Dim ftp1 As New FtpClient
ftp1.Host = FTPHost
ftp1.Account = FTPAccount
ftp1.Password = FTPPassword
Select Case e.FolderName
    Case “\\阿里巴巴有限公司\\附件\\”
        e.Cancel = True
        MessageBox.Show("你无访问此目录的权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End Select

--  作者:有点蓝
--  发布时间:2019/12/1 22:14:00
--  
去掉前4句代码
msgbox(e.FolderName) \'这里弹出什么目录名称?
Select Case e.FolderName
    Case "/阿里巴巴有限公司/附件"
        e.Cancel = True
        MessageBox.Show("你无访问此目录的权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End Select

--  作者:qaz17909
--  发布时间:2019/12/2 9:44:00
--  
找到原因了,反斜杠的问题,"/阿里巴巴有限公司/附件"是可以的,但"\\阿里巴巴有限公司\\附件"就不行了