>I want to change WordPerfect file attributes (make them read only) programmatically with VFP. Is there some tricks or API function I can use.

hi again this is the get for the previous set. I tried to send them together but it was too long for UT. I think :)

Joe Johnston


*********************************************************
FUNCTION GetAttr
PARAMETER zFileName && This is a complete filespec.

Private zADIR, zReturn, zAReturn, zAttribute, zForNext, zAt

zAReturn = ADIR(zADIR, zFileName,'rhsa')
zReturn = ''

IF zAReturn = 1 && check for bad filename
zAttribute = zADIR[5] && get our attributes

FOR zForNext = 1 to 5 && Loop through attribs

zAt = SUBSTR(zAttribute,zForNext,1) && pull out 1 char

IF zAt != '.' && skip 'blanks'
zReturn = (zReturn + zAt) && set the return up
ENDIF

ENDFOR
ELSE
zReturn = '?' && Indicate a bad filename
ENDIF

RETURN (zReturn)
*** EOP ***