- 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=193073)
-- 发布时间：2024/8/14 15:05:00
-- FTP远程文件上传
远程文件上传时，对应的用户能进入服务器文件夹，但上传文件后为什么看不到？但服务器上能看到。
-- 发布时间：2024/8/14 15:06:00
--
上传文件后什么地方看不到？如果是文件管理器，上传是上传，还要点击增加的
-- 发布时间：2024/8/14 15:28:00
--
增加了，也看不到啊
-- 发布时间：2024/8/14 15:31:00
--
这是BeforeEnterFolder的代码
If e.FolderName = "/" OrElse e.FolderName = "/公共" OrElse e.FolderName = "/" & User.Name Then
ElseIf User.name = "开发者" Then
Else
e.Cancel = True
MessageBox.Show("你无权访问他人目录!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
这是BeforeListdetails的代码
If e.CurFolder.Contains("/" & user.name & "/") = False Then \'如果上级目录是user.name这个名称的就不需要判断子目录了
For Each Info() As String In e.Infos
If Info(0) <> user.name Then \'隐藏归档目录
e.Remove(Info)
End If
Next
End If
-- 发布时间：2024/8/14 15:32:00
--
上传了文件以后，进入目录都是空的，看不到上传的文件啊，但服务器上是有的，FTP控制代码有什么问题么？
[此贴子已经被作者于2024/8/14 15:53:20编辑过]
-- 发布时间：2024/8/14 16:01:00
--
把权限控制代码都注释掉掉看看有没有问题？
调试
BeforeListdetails的代码
dim s as string = "/" & user.name & "/"
msgbox(s)
If e.CurFolder.Contains(s) = False Then \'如果上级目录是user.name这个名称的就不需要判断子目录了
msgbox(11)
For Each Info() As String In e.Infos
msgbox(Info(0))
If Info(0) <> user.name Then \'隐藏归档目录
e.Remove(Info)
End If
Next
End If
-- 发布时间：2024/8/14 16:23:00
--
看不出问题，就是服务器文件夹里的文件都 跳出来一遍。是不是把 上传的在这个文件夹里的文件也连带着隐藏掉了么？怎么让它们显示呢
-- 发布时间：2024/8/14 16:27:00
--
【都 跳出来一遍】有没有跳出之前看不到的文件？如果文件名不等于用户【If Info(0) <> user.name Then \'隐藏归档目录】就被隐藏了呀
-- 发布时间：2024/8/14 16:33:00
--
此主题相关图片如下：图3.jpg
此主题相关图片如下：图2.jpg
-- 发布时间：2024/8/14 16:34:00
--
S-339也跳出来的，就是进入这个文件夹后，里面的目录没有显示出来，上传的文件没有看到