>>* myFile.txt attributes: Archive (32) , Read-Only (1) >>GetFileAttribute('myFile.txt') && 33 >>*--------------------------------------------------------------------------- >>function GetFileAttribute(cFileName) >> if type('cFileName')!='C' or !file(cFileName) >> return -1 >> endif >> DECLARE INTEGER GetFileAttributes IN WIN32API STRING @ lpFileName >> return GetFileAttributes(cFileName) >>endfunc >>>
* lnattribs are the attributes returned >llreadonly = (BITAND(lnattribs, 1) # 0)