Sorry, should have previwed first to see if it will show. Should be like this:
Try: COPY TO [filewithpath] type xl5
HTH
>Try: COPY TO
type xl5
>
>HTH
>
>>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")
>>for i=1 to alen(latablearray)
>> mtablename=latablearray(i)
>>
>> x=0
>> on error x=error()
>> use (mtablename) in 0
>> on error
>>
>> if x=0
>> 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
Speak using soft and sweet words in case you have to eat them later.
