PUBLIC oleApp,Openmdb,ExportTxtTo, FileName,ExportType,TableToExport,ExportFileName,pcUnpostedPath,pcExportPath
pcUnpostedPath =  "C:\DATA_TEST\"
pcExportPath = "C:\DATA_TEST_Exported\"
Openmdb = ""
FileName = ""
TableToExport = ""
ExportFileName = ""

Openmdb = (SYS(2000,(pcUnpostedPath + ("*.mdb"))))
DO WHILE ! EMPTY(Openmdb)
	oleApp = CREATEOBJECT("Access.Application")
	oleApp.Visible = .F.
	oleApp.OpenCurrentDatabase(Openmdb, .T.)
	FOR EACH CurrentTable IN oleApp.CurrentData.AllTables
		TableToExport =  CurrentTable.Name
		ExportFileName = (pcExportPath + TableToExport + "." + LEFTC(Openmdb,(AT(".",Openmdb)-1)))
		***Put your code to store names here
		? TableToExport
		
		***
		*My code that does not work:
		*oleApp.DoCmd.TransferText(acExportDelim, "", TableToExport, ExportFileName)
	ENDFOR
	oleApp.Quit

	*-This line selects the next avaliable Transaction file to be imported using this loop.
	Openmdb = (SYS(2000,(pcUnpostedPath + ("*.mdb")),1))
ENDDO