do while !empty(lcFile) lcJustPath = justpath(lcFile) lcJustStem = juststem(lcFile) lcTextFile = lower(addbs(lcJustPath) + lcJustStem + ".txt") <b>llFirstField = .t.</b>Move that line:
do while !empty(lcFile) lcJustPath = justpath(lcFile) lcJustStem = juststem(lcFile) lcTextFile = lower(addbs(lcJustPath) + lcJustStem + ".txt") use (lcFile) set textmerge on noshow set textmerge to (lcTextFile) oProgress.Caption = "Export progress" oProgress.Show() scan llFirstField = .t.