在PB中如何更改文件属性？比如取消某文件的只读属性。

[sfaf]

谢谢!

[daiwoo_wang]

Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
说明
设置文件属性
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpFileName String，要设置其属性的文件名
dwFileAttributes Long，带有FILE_ATTRIBUTE_??前缀的一个或多个常数

如果不知函数属性，可用相似的GetFileAttribute得到函数属性。

[pbsql]

FUNCTION boolean SetFileAttributesA(ref string filename,string filepropertiy) LIBRARY "Kernel32.dll"
例：SetFileAttributesA(ls_cto,"-r")//取消只读属性

[sincerity]

API函数：
FUNCTION ulong SetFileAttributesA(ref string lpFileName,ulong dwFileAttributes) LIBRARY "kernel32.dll"

举例：
string ls_file

ls_file = "c:\test.txt"

SetFileAttributesA(ls_file,0)
dwFileAttributes 既是文件的属性参数，为0是去除所有属性。

[byfq]

up