Private Sub btn_dir_Click() Dim objFSO As FileSystemObject Dim objFile As File Dim ObjDirRoot As Folder Dim PageName As String Set objFSO = New FileSystemObject Set ObjDirRoot = objFSO.GetFolder("D:\Compiled DB\North") For Each objFile In ObjDirRoot.Files PageName = objFile.Name DoCmd.TransferText acLinkDelim,"GCELL_Specification" , PageName, objFile.Name, True Next End Sub
SpecificationName:(...) For delimited text files and Microsoft Word mail merge data files, you can leave this argument blank to select the default import/export specifications.
DoCmd.DeleteObject acTable, "TableName"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)