文件批量检索复制

youhun200

9 S* T/ x( N1 R8 c  N
/ v) ~/ e" h$ K9 O& v. O; u/ W这个小程序是根据自己工作需要编写的，很简单，就是在跳出的list.txt里列出你要复制的文件名（可以不写后缀名），由上至下写入，然后按提示创建文件夹或已有文件夹，检索后会弹出一个搜索到的文件清单，以供编辑。保存后回车，文件就全复制你指定的文件夹里了。下面我把代码复制过来，仅供参考。（360会有提示，若不放心可以分析代码，绝不会有损害系统的执行代码）就当是一种娱乐吧
@echo off
title  文件批量检索复制
" \9 o  ^, c. Y* ^' }+ Q* r+ Rcolor  1e
+ t3 J! m( m5 I8 W6 @, V  U* ]:stad
if  not  exist  list.txt  goto  exd
cls
@echo.
* [) v8 e1 N4 f1 G  s: rset/p       ph=       ● 输入创建文件夹的名称或已有文件夹名（空输入无效）:
2 ]- _+ Q  I' ]# v; G! {if  "%ph%"==""  goto stad
7 y; l) A; K) pif  exist  "%ph%"  goto menu
md  "%ph%"
:menu
: V$ w: I- r* r+ i' g+ q+ jcls
1 e1 F3 t  _' i, L1 q* ^4 Mmshta vbscript:msgbox("在文本中输入需要搜索的文件列表， 保存并回车，单击确定",64,"提示")(window.close)
" \' N$ C" y: t+ v* F+ i! D% Mlist.txt
findstr /rc:"." /rc:" " list.txt||  goto  ens
cls
@echo.
! Y2 n; k' Z3 O@echo      回车继续......
! }, L% E2 L. o+ A" i, \! vpause >nul
& y" \! G- p) e) K( ~4 H+ A0 Lcls
@echo.
5 m1 `4 q9 }$ a( k+ M@echo                  正在搜索文件，稍候......
for /f  "tokens=1*"  %%f  in (list.txt) do  dir/s/a/b  \*"%%f"*  >>lise.txt
cls
@echo.
cls
5 W( V3 I8 A: ^, X" T# m- Ufindstr /rc:"." /rc:" "  lise.txt||  goto  err
cls
+ D. t4 J* ]$ l6 M3 K1 J  J, e' Wmshta vbscript:msgbox("查阅并编辑搜索到的文件列表, 保存并回车，单击确定",64,"提示")(window.close)
. i: |6 s7 W. W5 n2 U! qlise.txt
@echo.
@echo      回车继续......
pause >nul
- c) n+ z, \  {9 ]; Ucls
findstr /rc:"." /rc:" "  lise.txt||  goto  erx
+ T$ @& Z! g! ?9 i& r. f' Ccls
for /f  "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f"  "%ph%"  >nul  2>nul
cls
' A7 m0 q" L' i3 F8 ^5 N: W2 W" P! i@echo.
set cnt=0
for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
)
$ K. t1 X* o" j# X% g: |  R# M; lif defined cnt (set   inf=共搜索到【%cnt%】个文件.) else echo,NO find files.
4 u6 M: j+ d$ n% o2 Fdel/q   lise.txt  >nul
mshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"复制完成! 单击确定退出",64,"提示")(window.close)
# A% h+ }$ R" `1 Xexplorer.exe   %ph%
exit
:exd
6 b1 A, G! r* T/ {3 |- l5 Ecls
7 D9 n) z$ f2 p+ \/ t@echo.           >list.txt
cls
+ Q4 x' s; z: G- qmshta vbscript:msgbox("【list.txt】文本已创建,单击确定，继续操作.",64,"提示")(window.close)
  k" V' a& o+ \cls
6 E6 R2 c9 I7 tgoto stad
:ens
cls
mshta vbscript:msgbox("文本不能为空,单击确定，继续操作. ",16,"错误提示")(window.close)
if  not  exist  list.txt  goto exd
goto menu
2 a5 O  w7 D9 T/ B) }, ?:err
5 j- ?/ d- F- ]cls
0 x6 Y9 D# O6 c4 dmshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
exit
:erx
cls
0 A. p) l1 k  adel/q   lise.txt  >nul
2 |# V' s& Q1 Vmshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
exit
4 U! P8 P' N8 y差点忘了，用记事本粘贴后，自己起名，后缀名写为bat或cmd

siralop

在这里好多人不是做电气的，对于语言不了解的，既然写在这里不如做成一个插件，然后大家在输入框里输入想查的东西，一点查询就能用好些。
/ ?1 `0 R! x- [$ D

mhfx2020

批处理命令?...

mhfx2020

楼主NB....应用场景是?

youhun200

mhfx2020 发表于 2023-12-28 15:57
楼主NB....应用场景是?

$ o9 U2 K, d5 Q9 a( |" c2 X以下是从运行开始到结束的截图

mhfx2020

好物，收藏了。感谢分享