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