用SetFileAttribute设置一个文件夹为System属性，取消System属性怎么办？

Question

SetAttr 目录名, GetAttr(目录名) and Not vbSystem

Answer 1

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_??前缀的一个或多个常数 
FILE_ATTRIBUTE_ARCHIVE The file is an archive file. Applications use this attribute to  files for backup or removal. 
FILE_ATTRIBUTE_HIDDEN The file is hidden. It is not included in an ordinary directory listing. 
FILE_ATTRIBUTE_NORMAL The file has no other attributes set. This attribute is valid only if used alone. 
FILE_ATTRIBUTE_OFFLINE The data of the file is not immediately available. Indicates that the file data has been physically moved to offline storage. 
FILE_ATTRIBUTE_READONLY The file is read-only. Applications can read the file but cannot write to it or delete it. 
FILE_ATTRIBUTE_SYSTEM The file is part of the operating system or is used exclusively by it. 
FILE_ATTRIBUTE_TEMPORARY The file is being used for temporary storage. File systems attempt to keep all of the data in memory for quicker access rather than flushing the data back to mass storage. A temporary file should be deleted by the application as soon as it is no longer needed. 

Answer 2

SetFileAttributes 目录名, GetFileAttributes(目录名) and Not FILE_ATTRIBUTE_SYSTEM