What's wrong with my code

[paul1941]

Hello all,

Following code is working correctly:

jaar = YEAR(DATE())
maand = MONTH(date())
dag = DAY(DATE())
uur = HOUR(dateTIME())
minuut = MINUTE(dateTIME())
opslagstam = "STAMOP"+(naamdb)+ALLTRIM(STR(jaar))+ALLTRIM(STR(maand))+ALLTRIM(STR(dag))+ALLTRIM(STR(uur));
+ALLTRIM(STR(minuut))
SET DEFAULT TO c:\
MD (opslagstam)
SET DEFAULT TO ((rstam)+'familie-boek\&naamdb')
COPY FILE *.* TO c:\&opslagstam\*.*

but he following code causes an error:

let = JUSTDRIVE(GETENV("SystemRoot"))
jaar = YEAR(DATE())
maand = MONTH(date())
dag = DAY(DATE())
uur = HOUR(dateTIME())
minuut = MINUTE(dateTIME())
opslagstam = "STAMOP"+(naamdb)+ALLTRIM(STR(jaar))+ALLTRIM(STR(maand))+ALLTRIM(STR(dag))+ALLTRIM(STR(uur));
+ALLTRIM(STR(minuut))
SET DEFAULT TO (let)
MD (opslagstam)
SET DEFAULT TO ((rstam)+'familie-boek\&naamdb')
COPY FILE *.* TO &let\&opslagstam\*.*

the error with the last line is:
cannot create "c:\stamopslagBe20071291215\versie.dbf"

what is happening?

regards

Paul

 

[Mike Gagnon]

COPY FILE *.* TO &let\&opslagstam\*.*

In what directory is the first *.* pointing to?

This works for me

COPY FILE 'c:\book2.xls' TO &let\&opslagstam\*.*

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.
ReFox XI (www.mcrgsoftware.com)

 

[GriffMG]

I think I would drop the macro substitution:

let = JUSTDRIVE(GETENV("SystemRoot"))
jaar = YEAR(DATE())
maand = MONTH(date())
dag = DAY(DATE())
uur = HOUR(dateTIME())
minuut = MINUTE(dateTIME())
opslagstam = "STAMOP"+(naamdb)+ALLTRIM(STR(jaar))+ALLTRIM(STR(maand))+ALLTRIM(STR(dag))+ALLTRIM(STR(uur));
+ALLTRIM(STR(minuut))
SET DEFAULT TO (let)
MD (opslagstam)
SET DEFAULT TO ((rstam)+'familie-boek\'+naamdb)
COPY FILE *.* TO (let+'\'+opslagstam+'\*.*')

Although I'm still not sure where naamdb is coming from!


Regards

Griff
Keep [Smile]ing

 

[paul1941]

Hi all,

I have no more problems with the following code:

let = JUSTDRIVE(GETENV("SystemRoot"))
jaar = YEAR(DATE())
maand = MONTH(date())
dag = DAY(DATE())
uur = HOUR(dateTIME())
minuut = MINUTE(dateTIME())
opslagstam1 = (let)+"\"+"STAM_OPSLAG"
SET DEFAULT TO &opslagstam1
opslagstam2 = (naamdb)+"_"+ALLTRIM(STR(jaar))+ALLTRIM(STR(maand))+ALLTRIM(STR(dag))+ALLTRIM(STR(uur))+ALLTRIM(STR(minuut))
MD (opslagstam2)
COPY file ((rstam)+'familie-boek\&naamdb\*.*') TO &opslagstam2\*.*
SET DEFAULT TO (let)+"\"+"STAM_OPSLAG"
tussen6 = (let)+"\"+"STAM_OPSLAG"
=adir(mijndir,'&tussen6\*.*','D')
create cursor dirs (naam c(30),grootte n(15),datum d,tijd c(15),atributen c(5))
append from array mijndir for dirs.atributen = '....D' AND dirs.naam # '..' and dirs.naam # '.';
AND ((naamdb)+"_" $ dirs.naam)
index on DTOC(datum)+tijd tag dt
set order to tag dt
select dirs
COUNT TO aantal
IF aantal > 5
GO top
dirweg = ALLTRIM(dirs.naam)
SET DEFAULT TO (let)+"\"+"STAM_OPSLAG"
cd (dirweg)
DELETE FILE *.*
SET DEFAULT TO (let)+"\"+"STAM_OPSLAG"
RD &dirweg
ENDIF


Thanks for the support

Paul