[文件操作] 【已解决】批处理如何实现特定文件名文件的复制和归档？

gxx2002

问题：我在文本文档中有一个文件名列表，想要从一个文件夹（其中包含了所需文件以及多余的文件）中根据列表提取出这些文件。有没有软件可以做到以上要求的批量搜索？由于文件名数上百，不可能用windows自带搜索来搜，也不能用文件名加逗号“,”法（因为列表实在太长，难以一个一个写逗号）。

解答：这种情况用批处理简单些，假定你的那个文件名列表是file.txt，你的文件夹是d盘的sample，要把这个file.txt中有的在sample下存在的的文件复制到d盘的new文件夹，打开记事本贴入以下内容：

@for /f %%i in (file.txt) do if exist "d:\sample\%%i"  copy "d:\sample\%%i"  d:\newCOPY

保存为bat文件（也就是文件类型选择所有文件，文件名随便填比如ss.bat）
  把这个ss.bat跟你的file.txt放在一个目录下，双击运行这个bat就行了。

需要改进的地方：对于这个公式，还需要3个功能：
1. 需要搜索的文件夹中，包含子文件夹；有些子文件夹在目前额命令中是不支持的。
2. 在上面的“file.TXT”文件中，如果输入的是部分文件名（如文件名中间的几个字符），那么就搜索不到了。
3. 还需要一个功能，能否限定只在某个修改日期段范围内的文件搜索？超出这个日期段的，就不搜了

如何改进？

CrLf

@for /f %%i in ('dir /s /a-d /b^|findstr /l /g:file.txt') do (
   if %%~ta gtr 2015/01/01 if %%~ta lss 2015/02/01  copy "d:\sample\%%i"  d:\new
)COPY

gxx2002

回复 2# CrLf


    大神，我修改了一下，还是不行！
    大神是否有QQ，能否帮忙？！

  感激不尽！

gxx2002

回复 2# CrLf


    实际处理结果还是不行，我用的是win7的，不知道是系统问题，还是我修改的不对，烦请大神帮忙！

gxx2002

另外，如果子目录下还有子目录，这个程序能否支持？

gxx2002

我把我需要做的东西放到附件中了，烦请大神帮忙！

pcl_test

回复 1# gxx2002
假设file.txt为列出需复制的文件列表的文本文档，那么里面的内容格式是怎样的？

gxx2002

回复 7# pcl_test

file.txt文件中的内容：仅仅是文件名的部分，但是是多个部分的集合。
比如，里面把人的姓氏写上，后面待处理文件里面，文件名是以人的全名来命名。只要把姓名中含有这个姓氏的文件提出来归档就好。

gxx2002

回复 7# pcl_test


    你可以下载我刚才发的RAR文件，里面就有实例，您能否帮忙操作？
   真的非常感谢！

pcl_test

回复 9# gxx2002
限定只在某个修改日期段范围内的文件搜索？提供以下三种种方式，请选择
1、筛选出修改日期为N天前至当前日期以内的文件
2、筛选出修改日期为N天前的文件
3、输入修改日期1和修改日期2，筛选出修改日期1和修改日期2之间的文件

gxx2002

回复 10# pcl_test


    可以采用输入日期的方式，这样更好，更灵活！

gxx2002

回复 10# pcl_test


    大神有没有QQ？非常希望可以向你请教！

bailong360

@Echo Off
Set /P Min=Min(YYYYMMDD):&Set /P Max=Max(YYYYMMDD):
For /F "Delims=" %%i In (文件名.txt) Do >nul Robocopy .\原文件夹 .\目标文件夹 *%%i*.* /S /MaxLad:%Min% /MinLad:%Max% 
Set/P=完成!COPY

这样是否符合要求?
已修正,刚把max和min填反了
Win 8.1 32位
Min:20140101
Max:20160110
测试通过

gxx2002

回复 13# bailong360


    我试了，不行！没有一个文件被拷贝出来。
   我的文件名.TXT内不是存的全名或者路径+全名，而是全名的一个部分。

  您看能否帮忙下载一下我上传的文件？直接在里面编辑？多谢！

pcl_test

回复 11# gxx2002
批处理跟file.txt放在一起运行

@echo off
setlocal enabledelayedexpansion
::设定要搜索的目录
set "fdir1=D:\test\"
::设定目标文件夹
set "fdir2=D:\new\"
::设定修改日期1(yyyymmdd)
set date1=20150102
::设定修改日期2(yyyymmdd)
set date2=20150225
::日期1要早于日期2
if %date1% geq %date2% echo 日期1要早于日期2，请重新设定 & pause & exit
for /f "delims=" %%a in ('type "file.txt"') do (
if not exist "%fdir2%%%a\" md "%fdir2%%%a\"
for /f "delims=" %%b in ('dir /a-d /s /b "%fdir1%" ^|findstr /c:"%%a"') do (
for /f "tokens=1*" %%c in ('dir /tw "%%b" ^|findstr ":"') do (
set "wdate=%%c"
set "wdate=!wdate:~0,4!!wdate:~5,2!!wdate:~8,2!"
if !wdate! geq %date1% if !wdate! leq %date2% (
echo "%%b"
copy "%%b" "%fdir2%%%a\" /y)
)
)
)
pauseCOPY