好,一道题目,自己想的
给你一个文件,现在去修改它的属性,包括只读,隐藏等要求:不能用dos命令,即system调用,不能利用注册表(我注册表还不清楚)
不能使用已经有的函数chmod
奖励:100元,看看,我的钱不多,钱在左边
等待结果,要钱的时候,我还不知道怎么转给你呢
[转发]
SetAttr 语句
为一个文件设置属性信息。
语法
SetAttr pathname, attributes
SetAttr 语句的语法含有以下这些命名参数:
部分 描述
pathname 必要参数。用来指定一个文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。
Attributes 必要参数。常数或数值表达式,其总和用来表示文件的属性。
设置值
attributes 参数设置可为:
常数 值 描述
vbNormal 0 常规(缺省值)
VbReadOnly 1 只读。
vbHidden 2 隐藏。
vbSystem 4 系统文件
vbArchive 32 上次备份以后,文件已经改变
注意 这些常数是由 VBA 所指定的,在程序代码中的任何位置,可以使用这些常数来替换真正的数值。
说明
如果想要给一个已打开的文件设置属性,则会产生运行时错误。
这个是VB中的,不过还是符合你的要求的:
不能用dos命令,即system调用,不能利用注册表,不能使用已经有的函数chmod
设置文件属性的函数原型
BOOL SetFileAttributes(
LPCTSTR lpFileName, // 指向文件名的指针
DWORD dwFileAttributes // 属性
);