如何在Windows或R中从图片文件夹提取指定子集图片

没问题！我来给你分享两个简单的实现方法——分别在Windows系统（不用写复杂代码）和R语言里搞定这个需求，都很省心：

方式1：用PowerShell快速执行 #

这是最灵活的方式，适合临时操作：

• 按下Win+X，选择「Windows PowerShell」（或「终端」，Win11推荐用终端）
• 切换到你的原始图片文件夹，比如路径是D:\MyImages，就输入：

  cd "D:\MyImages"
  

• 执行下面的命令，记得把待提取文件名列表.txt和新文件夹的路径换成你自己的：

  Get-Content "D:\file_list.txt" | ForEach-Object { Copy-Item -Path $_ -Destination "D:\SelectedImages" -ErrorAction SilentlyContinue }
  

  小提示：-ErrorAction SilentlyContinue会自动跳过找不到的文件，避免命令中途中断，如果想看到哪些文件没找到，可以去掉这个参数。

方式2：用批量处理脚本（.bat） #

适合需要重复执行的场景，双击就能运行：

1. 新建一个文本文档，粘贴下面的代码，把三个路径改成你实际的路径：

   @echo off
   set "source=D:\MyImages"
   set "dest=D:\SelectedImages"
   set "list=D:\file_list.txt"
   
   for /f "delims=" %%i in (%list%) do (
       copy "%source%\%%i" "%dest%\"
   )
   pause
   

2. 把文件后缀改成.bat（比如copy_selected_images.bat），双击运行即可。

如果平时常用R做数据分析，用R来处理也很顺手，步骤如下：

1. 先安装并加载fs包（处理文件路径更友好，也可以用基础函数）：

   install.packages("fs")  # 第一次用需要安装
   library(fs)
   

2. 编写核心代码，替换成你的实际路径：

   # 设置路径（注意用斜杠/或者双反斜杠\\）
   source_dir <- "D:/MyImages"
   dest_dir <- "D:/SelectedImages"
   file_list_path <- "D:/file_list.txt"
   
   # 自动创建目标文件夹（如果不存在）
   dir_create(dest_dir)
   
   # 读取文件名列表
   file_names <- readLines(file_list_path)
   
   # 逐个复制文件，同时检查文件是否存在
   for (file in file_names) {
     source_path <- path(source_dir, file)
     if (file_exists(source_path)) {
       file_copy(source_path, dest_dir, overwrite = TRUE)
       # 如果不想覆盖已存在的文件，把overwrite改成FALSE即可
     } else {
       message(paste("⚠️ 未找到文件：", source_path))
     }
   }
   

   如果你不想安装额外包，也可以用R基础函数file.copy替代file_copy，逻辑是一样的。

⚠️ 重要注意事项：

• 文本文件里的文件名必须和原始文件夹里的完全匹配，包括后缀（比如cat.jpg不能写成cat）
• 每行只放一个文件名，不要有多余的空格或空行

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