vb6中怎样去掉磁盘文件的只读属性?
方法一API
SetFileAttributes
VB声明
Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
说明
设置文件属性
返回值
Long,非零表示成功,零表示失败。 会设置GetLastError
参数表
参数 类型及说明
lpFileName String,要设置其属...全部
方法一API
SetFileAttributes
VB声明
Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
说明
设置文件属性
返回值
Long,非零表示成功,零表示失败。
会设置GetLastError
参数表
参数 类型及说明
lpFileName String,要设置其属性的文件名
dwFileAttributes Long,属性常数
调用SetFileAttributes("c:\123。
456",Normal)
方法二 FSO
Dim fso As New FileSystemObject
Dim file As file
Set file = fso。
GetFile("c:\123。456")
file。
Attributes = Normal'属性常数
属性的常量
'0 一般
'1 只读
'2 隐藏
'48 存档
'可以用 + 运算符连接多个 例如3代表只读并且隐藏 。收起