主题：[求助]文件权限

1.不会设置   但是我现在的效果可以达到  不同组只能进入本组的文件夹   默认本组文件夹的目录   唯一的不足就是       如果切换了用户  点增加还是在上一个用户组的文件夹里    可以选择文件        我试了很多次   如果能执行一下刷新   就会退出     但是这个刷新 要怎么设置   

参考代码

 

DataTables("合同").DataCols("文档").FTPClient.RootDir = "/test/abc/"
DataTables("合同").DataCols("文档").FTPClient.ChangeDir("/test/abc/")

根目录  我已经设置好了  切换用户以后  点文件管理器的管理  都正常   会自动跳到根目录         现在是点增加  不会自动跳到根目录  默认的还是上一个用户的  目录   

切换用户后，执行42楼代码，我测试没问题。

可以了      我放错地方了  谢谢甜老师

If e.IsFolder AndAlso e.FileName = "/公共" Then '首先禁止删除归档目录本身
e.Cancel = True
ElseIf Left(e.FileName,4) = "/公共/" Then '禁止删除归档目录下的文件或子目录
e.Cancel = True
End If
If e.Cancel Then
MessageBox.Show("禁止删除归档目录下的内容", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

user.name、user.group等信息（用户信息） 与 文件夹名称的关系是什么？根据什么逻辑判断？

 

比如

 

If Left(e.FileName,4+user.group.length) = "/公共/" & user.group Then

   msgbox(123)

End If

用户组    机电       ftp里面的文件夹名称也是   机电

msgbox(e.FileName)

If e.FileName < 4+user.Group.length Then

    e.cancel = true

ElseIf Left(e.FileName,4+user.group.length) <> "/公共/" & user.group Then

    e.cancel = true

End If

If e.Cancel Then
    MessageBox.Show("禁止删除" & user.group & "目录下的内容", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

能力有限这段代码  我一点都看不懂  直接复制  出错