文件批量检索复制

youhun200

这个小程序是根据自己工作需要编写的，很简单，就是在跳出的list.txt里列出你要复制的文件名（可以不写后缀名），由上至下写入，然后按提示创建文件夹或已有文件夹，检索后会弹出一个搜索到的文件清单，以供编辑。保存后回车，文件就全复制你指定的文件夹里了。下面我把代码复制过来，仅供参考。（360会有提示，若不放心可以分析代码，绝不会有损害系统的执行代码）就当是一种娱乐吧
@echo off
title  文件批量检索复制
color  1e
:stad
3 Z; I& O& F# }if  not  exist  list.txt  goto  exd
1 i  {; V' A7 h) c3 Ccls
) y; w! K# y7 L* u/ t2 h% f9 s/ q@echo.
: H' p% o7 A7 ^set/p       ph=       ● 输入创建文件夹的名称或已有文件夹名（空输入无效）:
3 r2 d6 z0 s; d+ P0 Mif  "%ph%"==""  goto stad
" A, I1 f4 [3 Cif  exist  "%ph%"  goto menu
md  "%ph%"
5 c* s0 C6 \$ X" J" [* H:menu
7 n! y4 U6 Q% n: ^4 ]& ~cls
mshta vbscript:msgbox("在文本中输入需要搜索的文件列表， 保存并回车，单击确定",64,"提示")(window.close)
0 B5 c4 T: A) j/ S+ a6 Blist.txt
findstr /rc:"." /rc:" " list.txt||  goto  ens
% a$ l$ n: @) ~- O3 [* Kcls
( F- S4 l7 j( f) C* F7 D@echo.
/ K# W' }6 G+ m7 X3 l& h- b@echo      回车继续......
pause >nul
cls
2 U& `3 w1 E2 a& z@echo.
@echo                  正在搜索文件，稍候......
7 {, B/ [& P! K3 I* m) Xfor /f  "tokens=1*"  %%f  in (list.txt) do  dir/s/a/b  \*"%%f"*  >>lise.txt
cls
% S* ]. s6 Q9 \@echo.
cls
findstr /rc:"." /rc:" "  lise.txt||  goto  err
cls
" G/ g4 w4 L& P% X  Q- Lmshta vbscript:msgbox("查阅并编辑搜索到的文件列表, 保存并回车，单击确定",64,"提示")(window.close)
) ^& H( ~' u! i. v, \  zlise.txt
! L6 i! @, d+ i- j$ V, Q$ ^0 t# N@echo.
@echo      回车继续......
pause >nul
cls
findstr /rc:"." /rc:" "  lise.txt||  goto  erx
; s$ z0 L$ C0 c7 Z. L+ i) gcls
for /f  "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f"  "%ph%"  >nul  2>nul
cls
@echo.
set cnt=0
  ^' r# h# K5 M/ E0 Dfor /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
3 K: U. {" \6 O0 _* k+ b)
: G' Z9 p& {* n4 |9 Qif defined cnt (set   inf=共搜索到【%cnt%】个文件.) else echo,NO find files.
del/q   lise.txt  >nul
mshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"复制完成! 单击确定退出",64,"提示")(window.close)
) N+ F' q- Z: j$ t/ o" G3 Qexplorer.exe   %ph%
$ P" c. L1 Q" M* V/ E  cexit
:exd
5 o- ^: o4 h8 V& M. Gcls
@echo.           >list.txt
cls
6 S9 w' t1 ~) ?5 l5 L9 y" f7 [# ~0 kmshta vbscript:msgbox("【list.txt】文本已创建,单击确定，继续操作.",64,"提示")(window.close)
  P- E) W$ X1 k  F( \* B( i' d& jcls
goto stad
9 d5 k9 n6 Y- D, F- P. p:ens
cls
mshta vbscript:msgbox("文本不能为空,单击确定，继续操作. ",16,"错误提示")(window.close)
if  not  exist  list.txt  goto exd
2 |/ I2 i. K" U6 \6 Qgoto menu
:err
cls
mshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
exit
:erx
cls
del/q   lise.txt  >nul
0 p( D* V5 U+ w! o2 G& qmshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
: w  A1 x9 R) ~+ Wexit
- t9 `7 D: W( E' q8 \差点忘了，用记事本粘贴后，自己起名，后缀名写为bat或cmd

siralop

在这里好多人不是做电气的，对于语言不了解的，既然写在这里不如做成一个插件，然后大家在输入框里输入想查的东西，一点查询就能用好些。
0 X3 H- R) \6 ^8 I& n4 A

mhfx2020

批处理命令?...

mhfx2020

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

youhun200

mhfx2020 发表于 2023-12-28 15:57
8 W* u. v8 f+ j& U) W. J! N楼主NB....应用场景是?

% k9 g% c5 R) D) W/ U9 N+ f, p以下是从运行开始到结束的截图

mhfx2020

好物，收藏了。感谢分享