神马品牌网蒸包子不粘笼布的窍门:如何批量更改文件的属性？VB
来源：百度文库 编辑：神马品牌网 时间：2024/05/11 15:25:20
有一个Listview，是Report型的列有了N个文件路径，如
c:\1.txt
c:\2.txt
c:\3.txt
c:\4.txt
.
.
.
.
.
.
c:\n.txt
属性都只读。
如何把这些文件批量处理，把它们的“只读”属性去掉？
我记得有一个API可以做到，可是忘记了，哪位高手教教我？
最好有代码演示！谢谢！
c:\1.txt
c:\2.txt
c:\3.txt
c:\4.txt
.
.
.
.
.
.
c:\n.txt
属性都只读。
如何把这些文件批量处理，把它们的“只读”属性去掉？
我记得有一个API可以做到，可是忘记了，哪位高手教教我？
最好有代码演示！谢谢！
API声明
Public Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
SetFileAttributes("文件名",FILE_ATTRIBUTE_NORMAL)
批量修改做个循环就行