# get file names maching the pattern in current directory
files <- list.files(pattern="6025_*")

# read and combine the files (in CSV format)
data <- do.call(rbind, lapply(files, function (name) {
  cbind(filename = name, read.csv(name, header = FALSE))
}))

# print row number of data
nrow(data);