主题：禁止修改

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

上传前设置密码，参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=110900

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

 

 

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

 

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

 

如果要更改原来的文件，是需要重新上传和覆盖本来的文件的，那直接控制不能上传覆盖，不就行了？

 

http://www.foxtable.com/webhelp/scr/3258.htm

 

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

 

 

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

If  e.CurFolder = "/会议纪要" OrElse Left(e.CurFolder,6) = "/会议纪要/" Then
    If User.IsRole("办公室主任") = false Then
        e.Cancelall= True
        MessageBox.Show("只能有办公室主任才能归档文件!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End  If
End  If

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

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

1、帮助里搜，搜不到搜百度

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