如何基于Excel中保存的文件路径从子文件夹复制指定文件至单个文件夹

错误原因拆解 #

第一类：No such file or directory #

• 要么是Excel里记录的源文件路径实际不存在（比如文件被删除、路径拼写错误、带了不可见空格/换行符）；
• 要么是目标文件夹未提前创建，系统找不到写入位置。

第二类：more 'from' files than 'to' files #

当你把new_location作为单个路径传给file.copy时，如果这个文件夹不存在，R会把它当成单个目标文件，而你要复制的是大量源文件，数量不匹配就会触发这个错误。另外，如果Relevant$FilePath里有空值或无效路径，也会加剧这个问题。

分步修正方案 #

1. 清理并验证源路径 #

先处理路径中的无效内容，筛选出真实存在的文件路径：

# 去除路径首尾的空格和不可见字符
Relevant$FilePath <- trimws(Relevant$FilePath)

# 筛选出实际存在的文件路径
valid_paths <- Relevant$FilePath[file.exists(Relevant$FilePath)]

# 打印不存在的路径，方便排查问题
invalid_paths <- setdiff(Relevant$FilePath, valid_paths)
if (length(invalid_paths) > 0) {
  cat("⚠️ 以下路径不存在：\n", paste(invalid_paths, collapse = "\n"))
}

2. 提前创建目标文件夹 #

R的file.copy不会自动创建目标文件夹，必须手动生成：

new_location <- "C:\\Box\\new_location"  # Windows路径用双反斜杠，或替换为正斜杠"/"

# 如果文件夹不存在则创建，recursive=TRUE会自动生成嵌套的父文件夹
if (!dir.exists(new_location)) {
  dir.create(new_location, recursive = TRUE)
}

3. 正确调用file.copy #

注意：你原本使用的file.path(Relevant$FilePath)是多余操作——Relevant$FilePath已经是完整路径，嵌套file.path反而可能导致路径拼接错误。直接用筛选后的有效路径执行复制：

# 复制文件到目标文件夹，overwrite=TRUE表示覆盖同名文件，可按需调整
file.copy(from = valid_paths, to = new_location, overwrite = TRUE)

额外需求：保留原文件夹结构 #

如果需要按原有的子文件夹结构复制文件到目标目录，可以这么做（假设原文件的根目录是H:\Outputs）：

root_dir <- "H:\\Outputs"
# 生成目标路径：将原路径的根目录替换为目标文件夹
relative_paths <- file.path(new_location, sub(root_dir, "", valid_paths))

# 先创建所有需要的子文件夹
lapply(dirname(relative_paths), function(x) {
  dir.create(x, recursive = TRUE, showWarnings = FALSE)
})

# 复制文件到对应的子路径
file.copy(from = valid_paths, to = relative_paths, overwrite = TRUE)

内容的提问来源于stack exchange，提问作者katanais