怎么去掉只读属性

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代表只读并且隐藏 。收起