>I see where the first field flag is set to true initially and then set to false, but I don't where the flag is reset to true to create a new line.
>
>Thanks,
>Eric

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.