Importing entire set of Files from a Common Folder using VBA

[GreggaR0und]

Hello;

I have an application where a set of text files, all with the same record format, are contained in a folder. I wish to read in these physical files as one logical file to update my table. I have created an Import Specification for the record format. Do you know how I can import the entire contents of the folder using the Invalid Specification?

Thanks,
Gregg

[JConsulting]

something like so

 Function ImportTXT()
Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim Fl As Object
    strfolder = "C:\"
 
    strFile = Dir(strfolder & "\*.txt", vbNormal)
    Do While strFile <> ""
        If strFile <> "." And strFile <> ".." Then
        DoCmd.TransferText acImportDelim, "Import Spec", "TableName", strFile, False, ""
        End If
        strFile = Dir()
    Loop
    Set FSO = Nothing
End Function

[GreggaR0und]

Great! Thank you! That worked to perfection!

[JConsulting]

Great! Thank you! That worked to perfection!

Happy to help
J