hi,
thank you, not Too many endif's?

IF NOT EOF("main2")
    gcDelimName = ALIAS( ) + '.xls'
    gcPath = [w:\Quality Test 01\mtest\]
    gcDelimName =  gcPath +   DTOS(file_date) +  ".XLS"
   
    lcFile=gcDelimName

    if adir(dummy,lcFile)>0
        MESSAGEBOX(" file exists")
        THISFORM.TEXT1.SetFocus()
       * RETURN
    else
        COPY  TO (gcDelimName) XL5
    ENDIF
 endif
.
.
.
.
.....etc

thanks

>Too many endif's?
>
>>hi all,
>>
>>i try to keep the Cursor at text1 if the file found,
>>but it complate all the code.
>>
>>

>>if adir(dummy,lcFile)>0
>>        MESSAGEBOX(" file exists")
>>        THISFORM.TEXT1.SetFocus()
>>       * RETURN
>>    else
>>        COPY  TO (gcDelimName) XL5
>>    ENDIF
>> endif
>>.
>>.
>>.
>>.
>>.
>>

>>
>>thanks for help.