如何将文件夹和子文件夹中的文件复制到R中的另一个文件夹？

Question

我想复制文件只有从1个根文件夹有100个文件夹和子文件夹。我不想复制文件夹。我只是想将这些文件夹中的所有文件（* .iso，* .txt，* .docx，* .pdf等）复制到另一个文件夹中。

我的代码：

setwd("/Users/RLearner/Desktop/RDMS") 

if (file.exists(list.files(path=".",recursive=TRUE))) 
    file.copy(from=".", to="/Users/RLearner/Desktop/Test", recursive=TRUE) 

但这段代码复制根文件夹，因为它是在我的期望Test文件夹。我只想复制这些文件夹所具有的文件？

Answer 1

我会做：

from.dir <- "/Users/RLearner/Desktop/RDMS" 
to.dir <- "/Users/RLearner/Desktop/Test" 
files <- list.files(path = from.dir, full.names = TRUE, recursive = TRUE) 
for (f in files) file.copy(from = f, to = to.dir)