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
		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