>>>I am trying to use Sergey's change attribute routine to make a file read/write
>>>
>>>I am using
>>>

>>>oFSO = CREATEOBJECT("Scripting.FileSystemObject")
>>>

>>>
>>>but i GET AN ERROR IT DOES NOT EXIT
>>>
>>>windowa 2003 - vfp 9.2
>>>
>>>how can I get around it
>>
>>You must install Windows scripting.
>>Many sysadmins didn't install it by default.
>
>
>how do you do that?

You don't, since it may be prohibited at the company due to strict safety standards. Instead you can use this function:

FUNCTION SetAttr
PARAMETER tFileName, tAttribute
tAttribute = UPPER(tAttribute)
Private nAttribute
nAttribute=0
If 'S'$tAttribute && System
   nAttribute = nAttribute + 4
Endif    
If 'H'$tAttribute && Hidden
   nAttribute = nAttribute + 2
Endif    
If 'R'$tAttribute && ReadOnly
   nAttribute = nAttribute + 1
Endif    
If 'A'$tAttribute && Archive
   nAttribute = nAttribute + 32
Endif    
If 'N'$tAttribute && Normal
   nAttribute = nAttribute + 128
Endif    
declare integer SetFileAttributes IN kernel32 STRING, INTEGER 
Return SetFileAttributes(tFileName,nAttribute)=1