Appending Multiple .dat files 1

[EBOUGHEY]

Is there an easy little program to append multiple files to one database?

The one below is not working very well since there are 280 dat files to append....

FOR X = 1 TO 280
XVAR = GETFILE('dat')
APPE FROM ALLTRIM(LOWER(XVAR)) deli


Thanks for any assistance!

 

[jimoo]

Assuming all files are in the same directory...

pnFileCount = ADIR(paFiles,'*.dat')
FOR lni = 1 To pnFileCount
APPE FROM paFiles[lni] deli
ENDFOR


Jim Osieczonek
Delta Business Group, LLC

http://www.deltabg.com

 

[EBOUGHEY]

I get the error "not a character expression". hmmmmm....

 

[craigsboyd]

*!* Try changing the code above to this:
pnFileCount = ADIR(paFiles,'*.dat')
FOR lni = 1 To pnFileCount
APPEND FROM (paFiles[lni]) DELIMITED
ENDFOR

*!* Or if you'd like you can do it like this:
lcPathAndMask = "C:\*.dat"
lcFile = Sys(2000, lcPathAndMask)
Do While !Empty(lcFile)
APPEND FROM (lcFile) DELIMITED
lcFile = Sys(2000, lcPathAndMask, 1)
Enddo

_{craig1442@mchsi.com}

"Whom computers would destroy, they must first drive mad." - Anon​

 

[EBOUGHEY]

Craig - HI!!! Remember me?

It's working now with the second code you put up...

Thanks for saving me so much time!

 

[craigsboyd]

Elena,

Yes, I do remember you.

I'm glad the second solution worked for you. Was the first solution still throwing an error for you? Just curious.

_{craig1442@mchsi.com}

"Whom computers would destroy, they must first drive mad." - Anon​

 

[EBOUGHEY]

the 1st one was still giving me the error. not sure why. I tried several different things with it to no avail.

 

[jimoo]

The first one needed one more parameter

* notice the ,1
APPE FROM paFiles[lni,1] deli

Jim Osieczonek
Delta Business Group, LLC

http://www.deltabg.com

 

[craigsboyd]

Good catch jimoo...I missed it.

_{craig1442@mchsi.com}

"Whom computers would destroy, they must first drive mad." - Anon​