>lcDir = Thisform.text1.Value + 'eo.dbf'
>IF FILE(lcDir)
> SET SAFETY OFF
> *-- save in table
> gacPath[1] = Thisform.text1.Value
> lcFname = m.home + 'config'
> SAVE TO &lcFname ALL LIKE gacPath*
> SET SAFETY ON

Run this with debugger open, and keep checking for values of all this:

> gacPath[1] = Thisform.text1.Value
> lcFname = m.home + 'config'
> SAVE TO &lcFname ALL LIKE gacPath*

Specially check whether lcFname contains a valid path/filename, and if the array gacPath has been dimensioned.