Applying what Christophe said to your own data, would look like this
library(tidyverse)
list_of_files <- list.files(path = "../Tests/",
recursive = TRUE,
pattern = "340506\\.txt$|340527\\.txt$",
full.names = TRUE)
df <- list_of_files %>%
map_df(read_table)
And, as I said to you before please ask your questions with a REPRoducible EXample (reprex)