批量读取本地文件

doc.names <- dir("path") 
doc.path <- sapply(doc.names,function(names) paste(path,names,sep='/'))
doc <- sapply(doc.path, function(doc) readLines(doc))


doc.names <- dir("F:/5分钟报价1")          #读取目录内文件名称
FileName <-data.frame(gsub("\\.xlsx","",doc.names),paste("F:/5分钟报价1",doc.names,sep='/'))        #去除文件名类型 加上 文件路径 生成文件路径数据框