如何将文件夹和子文件夹中的文件复制到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)