Tariq

Is this what you mean (put the code in YOUR loop) ?

Terry

>Dear Experts
>
>

>set century on
>
>lcfullpath = fullpath(curdir())
>lcfullpath = left(lcfullpath, len(lcfullpath) - 1)
>lclastfolder = justfname(lcfullpath)
>
>abc=alltrim("E:\SoftBkup\"+lclastfolder+alltrim("\")+alltrim("Xls")+alltrim("\"))
>ab4=alltrim(abc)+alltrim(dtos(date()))
>
>mdbcname=(sys(5)+alltrim(sys(2003)))+'\TABLES\ACWS.dbc'
>#define crlf chr(13)+chr(10)
>
>close all
>close data
>open database (mdbcname) excl
>= adbobjects(latablearray, "TABLE") && Put table names into an array
>for i=1 to alen(latablearray) 	&& loop through each table in the array
>	mtablename=latablearray(i) 	&& pick up table name from array
>
>	x=0
>	on error x=error()
>	use (mtablename) in 0 	&& attempt to open table
>	on error
>
>	if x=0 			&& Possible table corruption


                  lcPath = "ab4\" + mTableName
                  copy to ( lcPath) Type XL5


>		copy to type xl5
>	endif
>next x
>

>
>The codes copy all dbf files to present directory.
>But I want to copy all dbf files with their orinal names to following location
>ab4
>How to modify path in this line
>
>copy to type xl5
>
>Please help