>Dear Sir
>
>Your codes copies all dbf names to target location with xls extension.
>But it has a serious problem.
>All files have same structure and file size instead of actul dbf field names and data.
>All files contains the structure and data of FIRST DBF in loop.
>
>Apply codes on any dbc and see the structure of excel files.
>
>Please help

adbobjects(latablearray, "TABLE") && Put table names into an array
select 0
for i=1 to alen(latablearray) 	&& loop through each table in the array
	x=0
	on error x=error()
	use (latablearray(m.i)) 	&& pick up table name from array and attempt to open table
	on error

	if m.x=0 			&& Possible table corruption
		copy to (addbs(m.ab4)+latablearray(m.i)+'.XLS') type xl5
                use
	endif
endfor

Cetin