I have developed an application which uses over 17 tables from another application.

I want to make a copy of each table with a new name in a folder and open each one.

At present I am using the following code each time

eg for TEMP_C

SELECT TEMP_C

myorigfilename ="TEMP_C"+'.dbf'

mycopyfilename = "TEMP_CC"+'.dbf'

CopyFile (myorigfilename , mycopyfilename, 0)

myorigfilename ="TEMP_C"+'.fpt'

mycopyfilename = "TEMP_CC"+'.fpt'

CopyFile (myorigfilename , mycopyfilename, 0)

*!*	COPY to TEMP_CC - replaced by API call

USE

IF !used('TEMP_CC')
	USE TEMP_CC in 0
ENDIF

Can a clever more experienced coder than me put all this in a FOR NEXT form that I can use instead?

I will manually create an array of the old TEMP filenames and corresponding new TEMP filenames as they will never change.

I already have many prgs using the new filenames.

I am doing this so that the tables form the original application are not changed by my app.

Many thanks

-Bryan