hur.cn - 华软网

 热门搜索

pb中如何得到和修改文件的只读属性?

  作者:未知    来源:网络    更新时间:2017/1/11
如题
------华软网友回答------
你看看api中是否能办到
------华软网友回复------
好像只能用api了!
帮你顶!
------华软网友回复------
声明外部函数:
FUNCTION BOOLEAN SetFileAttributesA(String filename,Int attribute) LIBRARY 'Kernel32.Dll'

------华软网友回复------
WIN32 API
FUNCTION BOOLEAN SetFileAttributesA(String filename,Int attribute) LIBRARY 'Kernel32.Dll'

//*************************************************//
//function : 设置文件的属性
//name     : uf_set_fileattributes
//parm     : 
//         1. as_FileName       : 目标文件路径
//         2. as_fileattributes : 文件的属性
//return   : true is success or false is fail
//author   : hzh
//date     : 2002.05.04
//************************************************//

ulong l_fileattributes

IF Len(as_fileattributes)<1 THEN RETURN FALSE

as_fileattributes = Upper(as_fileattributes)

IF Pos(as_fileattributes,'A') >0 THEN l_fileattributes += 32

IF Pos(as_fileattributes,'H')>0 THEN l_fileattributes += 2

IF Pos(as_fileattributes,'S') >0 THEN l_fileattributes += 4

IF Pos(as_fileattributes,'N') >0 THEN l_fileattributes += 128

IF Pos(as_fileattributes,'R') >0 THEN l_fileattributes += 1

RETURN SetFileAttributesA(as_FileName,l_FileAttributes)



------华软网友回复------
谢谢兄弟      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。