大送分，小问题一个：在VB中怎样去掉文件的只读属性？

Question

SetAttr pathname, 0 'vbNormal

Answer 1

karma(无为), 谢谢，给你60分！

Answer 2

Const MOVEFILE_REPLACE_EXISTING = &H1
Const FILE_ATTRIBUTE_TEMPORARY = &H100
Const FILE_BEGIN = 0
Const FILE_SHARE_READ = &H1
Const FILE_SHARE_WRITE = &H2
Const CREATE_NEW = 1
Const OPEN_EXISTING = 3
Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Longsub set_attrib()
    SetFileAttributes "c:\myfile\filex.doc", FILE_ATTRIBUTE_TEMPORARY
end sub