lcCSV = 'myCSV.csv' ALines(arrLines, FileToStr(lcCSV)) lcStruc = Strtran(arrLines[1],',',' c(254),')+' c(254)' Create Cursor myCursor (&lcStruc) Append From (lcCSV) type delimitedIt's not a good idea to append from a CSV in fact. Instead you might try to automate excel :
#Define xlDBF3 8 oExcel=createobject('Excel.Application') with oExcel .DisplayAlerts = .f. .Workbooks.Open('c:\mypath\myFile.xls') .ActiveWorkbook.SaveAs('c:\myTargetPath\myFile.dbf',xlDBF3) .Saved = .t. .Quit endwithCetin