1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
Dim fso As New FileSystemObject Dim f As Folder Dim sf As File Dim path As String path = "C:\path\to\directory\" Set f = fso.GetFolder(path) For Each sf In f.Files DoCmd.TransferText acImportDelim, , "tbl_TempBuys", sf, -1 Next