游戏木纹材质贴图:如何批量更改文件的属性?VB
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/04 09:26:52
有一个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)
批量修改做个循环就行