Windows批量搜索并复制/剪切文件的批处理程序实例

::Batch search & copy/move, Mar 21,2009
::..

@echo off
color 3E
echo 本程序复制/剪切当前目录下含有特定关键字的特定类型文件
echo 注意：覆盖不提示，请小心操作
echo 注意：关键字列表不要有空格、空行、空回车
echo.
if not exist list.txt (echo.
echo 请先将关键字列表保存为list.txt...
pause > NUL
exit
)
echo.
echo 选择要进行的操作：
set /p opt=复制(c) or 剪切(x):
if %opt% NEQ c if %opt% NEQ x (
echo 没有选项，byebye!
pause >NUL
exit
)
set /p ext=指定文件扩展名（不含"."，比如pdf，不指定请输入*）:
set /p url=目标文件夹路径（不可在当前目录内）：
if not exist %url% md %url%
if %opt%==c set task=复制
if %opt%==x set task=剪切
echo 按任意键开始%task%....
pause > NUL

set count=0
for /f "tokens=*" %%i in (list.txt) do (
 for /r %%j in (*%%i*.%ext%) do (
echo 正在%task% %%j 到 %url%
if %opt%==c (copy "%%j" %url% >NUL)
if %opt%==x (move "%%j" %url% >NUL)
set /a count+=1
 )
)
echo.
echo 任务完成！共%task%了%count%个文件
echo.
echo by www.lfhacks.com
echo ..
pause >NUL
exit

::Batch search & copy/move, Mar 21,2009
::..

@echo off
color 3E
echo 本程序复制/剪切当前目录下含有特定关键字的特定类型文件
echo 注意：覆盖不提示，请小心操作
echo 注意：关键字列表不要有空格、空行、空回车
echo.
if not exist list.txt (echo.
echo 请先将关键字列表保存为list.txt...
pause > NUL
exit
)
echo.
echo 选择要进行的操作：
set /p opt=复制(c) or 剪切(x):
if %opt% NEQ c if %opt% NEQ x (
echo 没有选项，byebye!
pause >NUL
exit
)
set /p ext=指定文件扩展名（不含"."，比如pdf，不指定请输入*）:
set /p url=目标文件夹路径（不可在当前目录内，末尾不要带斜杠\）：
if not exist %url% md %url%
if %opt%==c set task=复制
if %opt%==x set task=剪切
echo 按任意键开始%task%....
pause > NUL

set count=0
for /f "tokens=*" %%i in (list.txt) do (
 md %url%\%%i
 for /r %%j in (*%%i*.%ext%) do (
echo 正在%task% %%j 到 %url%\%%i
if %opt%==c (copy /Y "%%j" "%url%\%%i" >NUL)
if %opt%==x (move /Y "%%j" "%url%\%%i" >NUL)
set /a count+=1
 )
)
echo.
echo 任务完成！共%task%了%count%个文件
echo.
echo by www.lfhacks.com
echo ..
pause >NUL
exit