* 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