Need assistance with figuring out why my code is not looping through my folder. It loops the same text file over and over again. When I put a break in and run the code, it appears that the next file in line is correct, but it opens the prior file.
Sub MikesMacro()
Dim strFile As String
Dim intNumberOfFiles As Integer
Dim wbText As Excel.Workbook
Dim path As String
path = "C:\Users\MStarks\Desktop\Cincy Data Edits\PULSE IMPORTS\"
strFile = Dir(path & "*.TXT")
Do While Len(strFile) <> ""
Workbooks.OpenText Filename:=(path & "*.TXT") _
, DataType:=xlDelimited, Tab:=True, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1))
Set wbText = ActiveWorkbook
'Starts the macro used to set up format the Telog likes
'Macro not included
'start save as .CSV cycle
strFile = Dir
Loop
End Sub