设置文件属性

日前做一个加密软件，需要识别修改文件属性，做了一下测试，在XP2下VB6.0通过。

Private Sub Form_Load() 
dim FileName as string
    FileName = "c;/test.txt"
    SetAttr FileName, vbHidden + vbReadOnly
End Sub

属性(attributes) 参数设置可为：
常数 值 描述 
vbNormal =0        常规（缺省值） 
VbReadOnly =1   只读。 
vbHidden =2        隐藏。 
vbSystem =4       系统文件 
vbArchive =32     上次备份以后，文件已经改变