Sub SetAttr(PathName As String, Attributes As VbFileAttribute)
VBA.FileSystem 的成员
设置一个文件的属性信息
=======================================
【VB声明】
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long