如何將文件夾和子文件夾中的文件複製到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)