主题：[求助]文件权限

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

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

 

比如

 

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

   msgbox(123)

End If

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

msgbox(e.FileName)

If e.FileName.Length < 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

If user.group > "" Then
    If e.FileName.Length < 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
Else
    msgbox("没有设置分组group")
End If