If David was right with his question and suggested that your working directory is a directory containing all your subdirectories ...
file.paths <- paste0('dir', 1:10, '/', 'f1.csv')
lapply(file.paths, read.csv)
. , , , , - expand.grid, 10 10 :
combos <- expand.grid(1:10, 1:10)
file.paths <- paste0('dir', combos[,1], '/f', combos[,2], '.csv')