使用 GetFileAttributes 及 SetFileAttributes 二个 API 我们就可以读取及设定这四个属性。

'请在声明区中加入以下声明：

'设定文件属性
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
'读取文件属性
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

Const FILE_ATTRIBUTE_READONLY = &H1 '设定为只读
Const FILE_ATTRIBUTE_HIDDEN = &H2 '设定为隐藏
Const FILE_ATTRIBUTE_SYSTEM = &H4 '设定为系统
Const FILE_ATTRIBUTE_ARCHIVE = &H20 '设定为保存
Const FILE_ATTRIBUTE_NORMAL = &H80 '设定为一般 (取消前四种属性)

'要设定二种以上的属性可以用 or 串联以上之属性，来看看例子：

'设定 db1.mdb 为只读
SetFileAttributes "c:\db1.mdb", FILE_ATTRIBUTE_READONLY
'设定 db1.mdb 为只读 + 隐藏
SetFileAttributes "c:\db1.mdb", FILE_ATTRIBUTE_READONLY Or FILE_ATTRIBUTE_HIDDEN
'设定 db1.mdb 为只读 + 隐藏 + 系统 + 保存
SetFileAttributes "c:\db1.mdb", FILE_ATTRIBUTE_READONLY Or FILE_ATTRIBUTE_HIDDEN _
Or FILE_ATTRIBUTE_SYSTEM Or FILE_ATTRIBUTE_ARCHIVE
'取消 db1.mdb 所有设定
SetFileAttributes "c:\db1.mdb", FILE_ATTRIBUTE_NORMAL

'要读取文件目前的属性，则是用 GetFileAttributes API，以读取 db1.mdb 为例：

MsgBox GetFileAttributes("c:\db1.mdb")

'返回值如上面的常数声明值，例如：
'若返回值为 6 ( =2+4 ) 表示此文件为 隐藏 + 系统
'但是若返回值为 128 表示此文件未设定任何属

(责任编辑：admin)

• ·API函数详细解释
• ·Access从剪切版里复制和粘贴数据
• ·Access利用api实现打开/关闭光驱
• ·应用程序开机自动启动（注册表操作技巧
• ·Access VBA 判断网络是否连通的多种办
• ·什么是ADP,了解ADP的优缺点
• ·优秀产品大全--通用票据打印软件(新)
• ·[技巧分享]多条Shell语句执行导致判断
• ·在access中可以调用API函数GetFileInfo
• ·Access API集中营--增加临时使用的字体
• ·API ShellExecute 功能说明及应用示例
• ·在VB中使用API函数(什么是API? )
• ·API实现完美的图片出现效果（转）
• ·API 设置调整系统当前时间
• ·如何检测以及设置键盘状态
• ·不关闭当前数据库COPY当前数据库