如何修改文件属性

Question

SetFileAttributes VB声明 
Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long 
说明 
设置文件属性 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
lpFileName String，要设置其属性的文件名 
dwFileAttributes Long，带有FILE_ATTRIBUTE_??前缀的一个或多个常数 

Answer 1

Dim fso As New FileSystemObject
Dim file As file
Set file = fso.GetFile("c:\123.456")
file.Attributes = Normal

Answer 2

FILE_ATTRIBUTE_??：FILE_ATTRIBUTE_ARCHIVE    Archive file.
FILE_ATTRIBUTE_COMPRESSED    The file or directory is compressed.
FILE_ATTRIBUTE_DIRECTORY    File is a directory.
FILE_ATTRIBUTE_HIDDEN    File is hidden.
FILE_ATTRIBUTE_NORMAL    File is normal (no other file attributes are specified).
FILE_ATTRIBUTE_READONLY    File is read-only.
FILE_ATTRIBUTE_SYSTEM    File is a system file.
FILE_ATTRIBUTE_NORMAL    File is a temporary file.