Sub ImportFromCSV()
    Dim fs, i
    Set fs = Application.FileSearch
    With fs
        .LookIn = "E:\mydocu~1\XLS\"
        .SearchSubFolders = True
        .FileName = "*.csv"
        If .Execute() > 0 Then
            MsgBox "There were " & .FoundFiles.Count & _
             " file(s) found."
            For i = 1 To .FoundFiles.Count
                DoCmd.TransferText acImportDelim, , Left(Right(.FoundFiles(i), Len(.FoundFiles(i)) - Len("E:\Mydocu~1\XLS\")), Len(Right(.FoundFiles(i), Len(.FoundFiles(i)) - Len("E:\Mydocu~1\XLS\"))) - 4), .FoundFiles(i), -1
            Next i
        Else
            MsgBox "There were no files found."
        End If
    End With
End Sub