Function boolean SetFileAttributesA(string lpFileName,ulong dwFileAttributes) LIBRARY "kernel32.dll"
或许有用...
function uf_file_setattribute(string as_fileName,string as_FileAttributes)
ulong ll_FileAttributes
ll_FileAttributes=GetFileAttributesA(as_FileName)
IF ll_FileAttributes=4294967295 THEN
RETURN FALSE
END IF
as_FileAttributes=Upper(as_FileAttributes)
IF Pos(as_FileAttributes,"R+")>0 and Mod(ll_FileAttributes,2) < 1 THEN ll_FileAttributes += 1
IF Pos(as_FileAttributes,"R-")>0 and Mod(ll_FileAttributes,2) > 0 THEN ll_FileAttributes -= 1
IF Pos(as_FileAttributes,"H+")>0 and Mod(ll_FileAttributes,4) < 2 THEN ll_FileAttributes += 2
IF Pos(as_FileAttributes,"H-")>0 and Mod(ll_FileAttributes,4) > 1 THEN ll_FileAttributes -= 2
IF Pos(as_FileAttributes,"S+")>0 and Mod(ll_FileAttributes,8) < 4 THEN ll_FileAttributes += 4
IF Pos(as_FileAttributes,"S-")>0 and Mod(ll_FileAttributes,8) > 3 THEN ll_FileAttributes -= 4
IF Pos(as_FileAttributes,"A+")>0 and Mod(ll_FileAttributes,64) < 32 THEN ll_FileAttributes +=32
IF Pos(as_FileAttributes,"A-")>0 and Mod(ll_FileAttributes,64) > 31 THEN ll_FileAttributes -=32