主题：禁止修改

上传到FTP服务器的word文件如何能做到不被修改？

文件列有时上传的文件不容许别人更改，如果设置了列权限，没有权限的人就无法浏览；如果在原文件设置密码，每个文件设置密码确实不是个容易的事。有没有更好办法解决这个问题呢？

 

 

正面这段代码什么意思呢？

 

If e.DataCol.Name = "纪要" Then
    on error resume Next
    Dim app As New MSWord.Application
    Dim fileName = ProjectPath & "attachments\" & e.FileName
    Dim doc = app.Documents.Open(fileName)
    doc.Unprotect(Password:="123456")
    If User.Group <> "王五" Then
        doc.Protect (Password:="123456", NoReset:=False, Type:=MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
        Doc.saved = True
    End If
    App.Visible = True
    e.Cancel = True
End If

我想实现只有用户角色是“办公室主任”才能上传，但实现不了，请问下面的代码错在哪了？

 

 

If  e.CurFolder = "/会议纪要" OrElse Left(e.CurFolder, 4) = "/会议纪要/" Then
    If User.IsRole("办公室主任")  Or User.name <> "开发者"   Then
       If User.roles <> "办公室主任"or User.name <> "开发者" Then
        e.Cancelall= True
        MessageBox.Show("只能有办公室主任才能归档文件!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End  If
End  If

请问老师：Left(e.CurFolder,6) 这个代码是什么意思？这个数字起什么作用？怎么能查到这些代码的用法呢？

为什么不能写成： If User.Role = "办公室主任" Then  这种形式呢？

请问老师：Left(e.CurFolder,6) 这个代码是什么意思？这个数字起什么作用？怎么能查到这些代码的用法呢？