Transfer all text files in a specified folder

[rtackett]

I need assistance transferring all text files (fixed width) into my database. I created this code for excel files and it works great but am unsure how to do it for the text files. Any assistance would be greatly appreciated.

Private Sub Command1_Click()

Dim strPathFile As String, strFile As String, strPath As String


Dim strTable As String, strBrowseMsg As String
Dim blnHasFieldNames As Boolean

blnHasFieldNames = False
strBrowseMsg = "Select the folder that contains the EXCEL files:"
strPath = "C:\Users\IA User 1\Desktop\PRODUCTIVITY"
If strPath = "" Then
MsgBox "No folder was selected.", vbOK, "No Selection"
Exit Sub
End If

strTable = "IMPORT ARCHIVEDATA"
strFile = Dir(strPath & "\*.xls")
Do While Len(strFile) > 0
strPathFile = strPath & "\" & strFile
DoCmd.TransferText acImprotFixed - HERE IS WHERE I TRIED TO CHANGE IT TO NO AVAIL!
strTable , strPathFile, blnHasFieldNames
Kill strPathFile
strFile = Dir()
Loop
End Sub

[June7]

Why - error message, wrong results, nothing happens?

You show a misspelling of acImportFixed. How could that happen?

Need to change .xls to .txt or .csv, whichever your text files are.

Review link on dubugging techniques at bottom of my post.

[orange]

Please review the TransferText method and syntax

http://msdn.microsoft.com/en-us/libr.../ff835958.aspx

[orange]

Do you have 2 usernames here or a twin? Seems to the same issue here
https://www.accessforums.net/import-...les-27936.html

Strange that the problems are.....

[raytackettsells]

Please review the TransferText method and syntax

http://msdn.microsoft.com/en-us/libr.../ff835958.aspx

I have everything figured out with the exception of the path which I want it to transfer all text files in the specified folder, not just a single file.