seterrorfilename

[MarcoBoschi]

Hi,
If I Compile and run this program with last version of Fivewin
I find error.log in current folder and not c:\marco.log
what's wrong?
Bye

Code: Select all  Expand view  RUN

#include "fivewin.ch"


FUNCTION MAIN()
LOCAL cDbf := "marco->codice"

SetErrorFileName( "c:\marco.log" )

? &(cDbf)

RETURN NIL
 

[Enrico Maria Giordano]

Marco,

there are two problems:

1. you have to specify the path separately using SetErrorPath()

2. there is an error in the function SetErrorFileName()

This is the fixed sample:

#include "fivewin.ch"


FUNCTION MAIN()

Code: Select all  Expand view  RUN

LOCAL cDbf := "marco->codice"

SetErrorPath( "c:\" )
SetErrorFileName( "marco.log" )

? &(cDbf)

RETURN NIL


function SetErrorFileName( cFileName )
   local cOldFileName
   static cErrorFileName := "error.log"

   cOldFileName = cErrorFileName

   if PCount() == 1 .and. ValType( cFileName ) == "C"
      cErrorFileName = cFileName
   endif

return cOldFileName

EMG

[MarcoBoschi]

Thank You Enrico