[Resolvido]Importar vários arquivos txt de uma só vez.

Boa tarde,

Tenho varios arquivos txt para importação, na verdade cerca de 900(todos na mesma pasta). Teria como executar um cod onde ele fosse importando um a um do mesmo diretório para uma tabela especifica?
Procurei em buscar mas ele só me traz a rotina de importar apenas um arquivos, preciso que ele import todos.

Está com esse cod.

Option Compare Database

Private Sub importtxtbtn_Click()
Call BrowsingWindow
End Sub

'habilite a referencia VBA Microsoft Office xx.x Object Library
Sub BrowsingWindow()

Dim Dlg As FileDialog
Dim txtFilePath As String
Dim varFile As Variant

Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg
.Title = "Select the file you want to import"
.AllowMultiSelect = True
If .Show = True Then

For Each varFile In .SelectedItems
txtFilePath = varFile
Next
DoCmd.TransferText acImportDelim, "ImportDev", "DevCnab", txtFilePath
Else
Exit Sub
End If
End With

End Sub

Mas alem de exportar apenas um arquivo dos selecionados, ele só está incluindo a primeira linha...

Pessoal do mal, consegui que o arquivo importa-se corretamente pelo menos...
Ficou assim...

Sub BrowsingWindow()

Dim Dlg As FileDialog
Dim txtFilePath As String
Dim varFile As Variant

Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg
.Title = "Select the file you want to import"
.AllowMultiSelect = True
If .Show = True Then

For Each varFile In .SelectedItems
txtFilePath = varFile
Next
DoCmd.TransferText acImportFixed, "ImportDev", "DevCnab", txtFilePath, False
Else
Exit Sub
End If
End With

End Sub

Agora por favor como faço para conseguir importar todos os arquivos de um diretório.

Sub Import_multiple_txt_files()
'Modified from WillR - www.willr.info (December 2004)

Const strPath As String = "C:\FolderTest\" 'Directory Path
Dim strFile As String 'Filename
Dim strFileList() As String 'File Array
Dim intFile As Integer 'File Number

'Loop through the folder & build file list
strFile = Dir(strPath & "*.txt")
While strFile <> ""
'add files to the list
intFile = intFile + 1
ReDim Preserve strFileList(1 To intFile)
strFileList(intFile) = strFile
strFile = Dir()
Wend
'see if any files were found
If intFile = 0 Then
MsgBox "No files found"
Exit Sub
End If
'cycle through the list of files & import to Access
'creating a new table called MyTable
For intFile = 1 To UBound(strFileList)
DoCmd.TransferText acImportDelimi, , _
"TableTest", strPath & strFileList(intFile)
Next
MsgBox UBound(strFileList) & " Files were Imported"
End Sub

Amigão Vlwwwwww....
Fiz umas alterações pequenas e deu certo...


Muito Obrigado...