R语言批量移动文件夹中特定文件到另一个文件夹

使用R语言批量移动文件夹中特定文件到另一个文件夹

假设您有一个名为'文件夹路径1'的文件夹，其中包含17个子文件夹，每个子文件夹都包含一个名为'area.tif'的文件。您想要将所有这些'area.tif'文件移动到另一个名为'文件夹路径2'的文件夹中，同时保留其子文件夹结构。

您可以使用以下R语言代码来实现这个操作：

# 设置文件夹路径
folder1 <- '文件夹路径1'
folder2 <- '文件夹路径2'

# 获取文件夹1中的子文件夹列表
subfolders <- list.files(folder1, full.names = TRUE)

# 遍历每个子文件夹，将其中的'area.tif'文件转移到文件夹2下面
for (subfolder in subfolders) {
  file <- file.path(subfolder, 'area.tif')
  if (file.exists(file)) {
    file.copy(file, file.path(folder2, basename(subfolder), 'area.tif'))
  }
}

请确保将代码中的'文件夹路径1'和'文件夹路径2'替换为实际的文件夹路径。代码将遍历文件夹1中的每个子文件夹，并将其中的'area.tif'文件复制到文件夹2下的相应子文件夹中。

代码解释：

• list.files(folder1, full.names = TRUE): 获取文件夹1中所有子文件夹的完整路径列表。
• file.path(subfolder, 'area.tif'): 获取每个子文件夹中'area.tif'文件的完整路径。
• file.exists(file): 检查'area.tif'文件是否存在。
• file.copy(file, file.path(folder2, basename(subfolder), 'area.tif')): 将'area.tif'文件复制到文件夹2中，并保留其子文件夹结构。

通过这段代码，您可以轻松地将文件夹1中的所有'area.tif'文件批量转移到文件夹2，并保留其子文件夹结构。