Thanks a lot, I'm sure it will help.

Aloha,

James


>The following loop might help:
>
>

>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
>

>
>Thanks,
>Gaylen Miller