Write to a file

[Wolfgang Ciriack]

Hallo,

i use the following:

Code: Select all  Expand view

#define DIR_LEIST  "\My Documents\FvwMobil\Leistung\"
#define GID  "3C0019"

ExpStr:="Blablabla"
f:=DIR_LEIST+GID+"A"+alltrim(auftrag->aufnum)+"_"+nr+".txt"

memowrite(f,ExpStr)     


and this works very well. Why does the following not work ?
(i must get the file without the addional chr of memowrite)
It always end in "Error creating".

Code: Select all  Expand view

nH:=FCreate( f , 0 )
if nH>0
   n:=FWrite(nH,ExpStr)
   if n=0
      MsgInfo("Error writing to  "+f)
   else
      retw:=.T.
   endif   
   FClose(nH)
else
   MsgInfo("Error creating "+f)
endif



[Enrico Maria Giordano]

Try

Code: Select all  Expand view

if nH != -1

and check the correctness of the filename.

EMG

[Wolfgang Ciriack]

if nH != -1

That is sooooo simple, that i didnot see this - and i looked 50 times to that piece of code....

Thanks a lot.