Import Text Code does not see my file??

[Wayne L]

Can someone tell my why this is not seeing my file in its location because it is there. Iam trying to import all .txt files in one folder and then archive in a seperate folder. I am not an expert by any means.. know enough to be dangerous..

Private Sub ImportFiles_Click()
    Dim RSO As Object
    Dim strFolderPath As String
    Dim strFile As String
    Set RSO = CreateObject("Scripting.FileSystemObject")
 
    strFolderPath = "C:\SFOEDL\TL"
 
   strFile = Dir(strFolderPath & "\*.txt", vbNormal)
    Do While strFile <> ""
        If strFile > " " Then
 
        DoCmd.TransferText acImportFixed, "TLimport", "TblTL", strFile, False
        Name strFolderPath & strFile As "C:\SFOEDL\TL\Archive"
        End If
 
        strFile = Dir()
     Loop
 
End Sub

[ADezii]

You do not need the Reference to the Microsoft Scripting Runtime Object Library. The basic, and simplest, syntax for referencing all Text Files in a given Folder would be:

Dim strFolderPath As String
Dim strFile As String
 
strFolderPath = "C:\SFOEDL\TL"
 
strFile = Dir(strFolderPath & "\*.txt", vbNormal)
 
Do While strFile <> ""
  Debug.Print strFile
    strFile = Dir()
Loop

[Wayne L]

Found out what was missing..
DoCmd.TransferText acImportFixed, "TLimport", "TblTL", strFolderPath & strFile,
I needed to add the folder path and the file together..
Attached code is what worked. Thanks for the assist!!!

Dim strFolderPath As String
Dim strFile As String
 
strFolderPath = "C:\SFOEDL\TL\"
 
strFile = Dir(strFolderPath & "\*.txt", vbNormal)
 
Do While strFile <> ""
If strFile <> "." And strFile <> ".." Then
  Debug.Print strFile
    strFile = Dir()
    DoCmd.TransferText acImportFixed, "TLimport", "TblTL", strFolderPath & strFile, False
    End If
Loop