[浏览完整版]
标题：FTP远程文件上传
1楼
sw928 发表于：2024/8/14 15:05:00远程文件上传时，对应的用户能进入服务器文件夹，但上传文件后为什么看不到？但服务器上能看到。
2楼
有点蓝 发表于：2024/8/14 15:06:00上传文件后什么地方看不到？如果是文件管理器，上传是上传，还要点击增加的
3楼
sw928 发表于：2024/8/14 15:28:00增加了，也看不到啊
4楼
sw928 发表于：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
5楼
sw928 发表于：2024/8/14 15:32:00上传了文件以后，进入目录都是空的，看不到上传的文件啊，但服务器上是有的，FTP控制代码有什么问题么？
[此贴子已经被作者于2024/8/14 15:53:20编辑过]
6楼
有点蓝 发表于：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
7楼
sw928 发表于：2024/8/14 16:23:00看不出问题，就是服务器文件夹里的文件都 跳出来一遍。是不是把 上传的在这个文件夹里的文件也连带着隐藏掉了么？怎么让它们显示呢
8楼
有点蓝 发表于：2024/8/14 16:27:00【都 跳出来一遍】有没有跳出之前看不到的文件？如果文件名不等于用户【If Info(0) <> user.name Then '隐藏归档目录】就被隐藏了呀
9楼
sw928 发表于：2024/8/14 16:33:00
此主题相关图片如下：图3.jpg
此主题相关图片如下：图2.jpg
10楼
sw928 发表于：2024/8/14 16:34:00S-339也跳出来的，就是进入这个文件夹后，里面的目录没有显示出来，上传的文件没有看到