Page 1 of 1

Write to a file

Posted: Thu Sep 18, 2008 1:59 pm
by Wolfgang Ciriack
Hallo,

i use the following:

Code: Select all

#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

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


Re: Write to a file

Posted: Thu Sep 18, 2008 2:58 pm
by Enrico Maria Giordano
Try

Code: Select all

if nH != -1
and check the correctness of the filename.

EMG

Posted: Thu Sep 18, 2008 5:23 pm
by Wolfgang Ciriack
if nH != -1
That is sooooo simple, that i didnot see this - and i looked 50 times to that piece of code.... :evil: :oops: :evil:

Thanks a lot.