Execute macro with lastest .txt file

[JTL9161]

I have a macro that first opens a directory window where I store daily .txt files. I double click on the latest file and the marco imports it into Excel and continues. Been trying to find code that would at the start of the macro open the directory and import the latest .txt file.

Here's what I have now:

Dim FName As String
Dim x As Variant
Dim Path As String
Dim MyFile As String, Cmd As String

ChDrive "L"
ChDir "L:\1A-PHARMACY PB\DAILY REPORTS\01 - JANUARY\FSPRIME"
FName = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If FName = "False" Then Exit Sub
ChDir "L:\1A-PHARMACY PB\DAILY REPORTS"
ActiveWorkbook.Worksheets(1).Activate

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FName, _
Destination:=Range("$A$1"))
.Name = "Sheet1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Thank you,
James

 

[JTL9161]

That's it! Thanks for your help.