如何將具有重複文件名的文件複製到一個目錄中並通過在R中自動重命名來保留這兩個文件？

Question

我需要將文件從多個文件夾複製到一個文件夾，但有多個重複，我需要保持這些。有沒有辦法將具有重複文件名的文件複製到一個目錄中並通過在R中自動重命名來保留這兩個文件？

我正在使用的代碼：

my_dirs <- list.dirs("C:/desktop/") 
library(plyr) 
files<-sapply(my_dirs,list.files,full.names=TRUE,pattern=".xlsx") 

new_dir<-"C:/desktop/new folder/" 

for(file in files) { 
    file.copy(file, new_dir) 
} 

Answer 1

你或許可以使用file.rename來代替。我相信這個代碼應該可以工作，但是沒有經過測試。

for(i in seq_along(files)) { 
    file.rename(files[i], paste0(new_dir, "file_", i, basename(files[i]))) 
} 

的第二個參數file.rename粘貼新的文件路徑爲「_文件」前綴的文件名和計數器。 basename去除原始文件路徑並僅返回文件的名稱。隨着計數器的添加，您可以確定沒有任何文件具有相同的名稱。