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.TransferT ext 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