以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  ftp文件管理器禁止返回上级目录  (http://www.foxtable.com/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
--  
找到原因了，反斜杠的问题，"/阿里巴巴有限公司/附件"是可以的，但"\\阿里巴巴有限公司\\附件"就不行了