日前做一个加密软件,需要识别修改文件属性,做了一下测试,在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 上次备份以后,文件已经改变