1,可以用vb的setAttr函数
比如:SetAttr a.txt, vbReadOnly
2,还可以用api函数
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Private Const FILE_ATTRIBUTE_NORMAL = &H80