Problem with COPY FILE

[driessen]

Hello,

Here are 2 simple lines of code :

Code: Select all  Expand view

COPY FILE &(aDocTemp+".RTF") TO &(ALLTRIM(DocDoel)+"\"+"00000001.RTF")
COPY FILE &(aDocTemp+".RTF") TO &(ALLTRIM(DocDoel)+"\"+RIGHT(STR(100000000+VAL(DCTELLER),9,0),8) + ".RTF")

Why is the first line perfectly okay and why is the second line resulting in an compiling error?

Thanks a lot in advance.

[James Bott]

Michel,

Have you looked at the pre-processor output? I suspect that the problem is with the variable DCTELLER.

James

[Gale FORd]

I am not sure you need the ampersand. Extended commands just need to be enclosed in parens.
COPY FILE (aDocTemp+".RTF") TO (ALLTRIM(DocDoel)+"\"+"00000001.RTF")

[fafi]

Try this

Code: Select all  Expand view

    local cTo1 := &(ALLTRIM(DocDoel)+"\"+"00000001.RTF")
    local cTo2 := &(ALLTRIM(DocDoel)+"\"+RIGHT(STR(100000000+VAL(DCTELLER),9,0),8) + ".RTF")
     ? cTo1
    ? cTo2
    COPY FILE &(aDocTemp+".RTF") TO (cTo1)
    COPY FILE &(aDocTemp+".RTF") TO (cTo2)

Or this one

Code: Select all  Expand view

    COPY FILE (&(aDocTemp+".RTF")) TO (&(ALLTRIM(DocDoel)+"\"+"00000001.RTF"))
    COPY FILE (&(aDocTemp+".RTF")) TO (&(ALLTRIM(DocDoel)+"\"+RIGHT(STR(100000000+VAL(DCTELLER),9,0),8) + ".RTF"))

Best regards
Fafi

[driessen]

Hello guys,

I tried everything but nothing solved the problem.
Someone suggested me to use FileCopy().
And guess what : problem solved.

Thanks a lot, all of you, for your efforts.

[Gale FORd]

Why the ampersand. Use just the parentheses.