MsgBox, % Text := LastFileRead("E:\Downloads")   ; вместо "E:\Downloads" путь к папке в кавычках

LastFileRead(DirPath)
{
   Loop, %DirPath%\*.txt, 0
      Files .= (A_Index = 1 ? "" : "`n") . A_LoopFileLongPath

   Sort, Files, R
   LastFile := SubStr(Files, 1, InStr(Files, "`n") - 1)
   FileRead, Text, % LastFile
   Return Text
}