语法：SetAttr "路径",属性常数

常数       值   描述 
vbNormal   0   常规（缺省值） 
VbReadOnly 1   只读。 
vbHidden   2   隐藏。 
vbSystem   4   系统文件 
vbArchive  32  上次备份以后，文件已经改变 

例：setattr "c:\图片.jpg",VbReadOnly + vbHidden   '将"图片"设置成只读和隐藏属性

========================取某文件属性=========================
Private Sub Command1_Click()
	Dim a As String
	Const sFile As String = "C:\123.txt"
	a = "文件路径: " & sFile & vbCrLf & "修改日期: " & FileDateTime(sFile) & vbCrLf & "文件大小: " & FileLen(sFile) & "字"
	MsgBox a
End Sub