使用R语言file.copy将多目录文件复制至单文件夹的问题求助

首先，你的代码存在两个核心问题：

• 源路径错误：all_files已经是完整路径，不需要再拼接directory1，否则会生成无效路径（比如directory1/Users/xxx/file.txt）。
• 目标路径处理不当：直接拼接directory2和完整路径会导致目标目录层级混乱，使用basename()时需要正确构造目标路径，同时要确保目标目录存在。

正确的实现步骤 #

1. 确保目标目录存在：如果directory2不存在，先创建它（递归创建子目录，避免报错）。
2. 构造正确的目标路径：用file.path()拼接目标目录和文件名（自动适配系统路径分隔符，比paste0()更可靠）。
3. 执行文件复制：调用file.copy()，可选开启权限复制，同时检查复制结果。

完整代码示例 #

# 假设all_files是包含完整路径的文件向量，比如：
# all_files <- c("/path/to/dir1/file1.txt", "/path/to/dir2/file2.jpg")

# 1. 创建目标目录（如果不存在）
target_dir <- "directory2"
dir.create(target_dir, recursive = TRUE, showWarnings = FALSE)

# 2. 构造目标路径：取每个文件的文件名，放到target_dir下
target_paths <- file.path(target_dir, basename(all_files))

# 3. 执行复制
copy_results <- file.copy(from = all_files, to = target_paths, copy.mode = TRUE)

# 可选：检查复制失败的文件
if (any(!copy_results)) {
  cat("以下文件复制失败：\n")
  print(all_files[!copy_results])
}

关键细节说明 #

• file.path()：自动处理Windows和Linux/macOS的路径分隔符（\或/），避免手动拼接出错。
• dir.create(recursive = TRUE)：如果目标目录的父目录不存在，会一并创建，比如要创建a/b/c，即使a和a/b都不存在也能成功。
• copy.mode = TRUE：保留原文件的权限设置（可选，根据需求调整）。
• 检查复制结果：file.copy()会返回逻辑向量，标记每个文件是否复制成功，方便排查问题。

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