windows API 怎么设置文件的属性

Question

需求是这样的：要求对系统中某一特定文件比如“c:\temp\test.doc”的复制权限进行控制。设置完成以后该文件不能被复制，也就是选中以后点击右键选择“复制”或者用快捷键都不能完成复制操作。最好有源程序

Answer 1

问题是这样的：
1、从服务器读取数据到x（）数组中
2、在内存中生成一个文件存放数组中的数据
    Open "aa.doc" For Binary Access Write As #1
    Put #1, , x()
    Close #1
3、用word打开在内存中生成的那个aa.doc文档，该如何操作

Answer 2

只有把doc关了，然后用Word打开。（看你的代码，aa.doc已经关闭，也就是说，该文件根本不在内存里，直接打开就可以了。）
可以用Word.Application或者ShellExecute()，随你便。对于你说的“复制权限”，其实是做不到的。NetWare的文件权限曾经有“禁止复制”这一项，不久就发现，只要用户拥有读权力，他就可以先读入，再保存完成复制。所以，即使在Windows2000/Xp/2003里面也没有“复制”这种权限。

Answer 3

不行的啊
    Open "aa.doc" For Binary Access Write As #1
    Put #1, , x()
    Set objDoc = objApp.Documents.Open("aa.doc")
我用这个命令的时候出现“文件找不到，更改其他文件”的提示啊

Answer 4

setattrib有一个这样的函数吧。

Answer 5

在vb中怎么得到一个文件对象啊？难道只有open么？

Answer 6

还可以使用FileSystemObject对象，这是新型的文件对象模型。需要引用Microsoft Script Runtime。如果你的程序不需要升级，也不需要实现Open不能达到的功能，一般不需要用FSO，因为其需要引用Microsoft Script Runtime库，加重了程序的依赖，在打包的时候扩大了安装包的体积。

Answer 7

Dim objFileSystem, objTempFile
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objTempFile = objFileSystem.GetFile("c:\temp\test.doc")
得到文件对象以后怎么设置它的共享属性

Answer 8

Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long这个函数的第三个参数的可供选择的常量是哪些？告诉我的话，这80分就是你了的

Answer 9

API函数的参数命名有个规则：
比如，SetWindowPos的参数都是以SWP开始的。所以你的OpenFile也一样，是由OF_开始的我查了一下：太多了。你看其中的英文就知道了，比如：
Public Const OF_SHARE_EXCLUSIVE = &H10
就是独占打开方式。各个参数应该是用Or连接。

Answer 10

知道了也没有用啊，郁闷死了，谁知道用word以独占的方式打开文件啊？？？求求各位了。