文件批量检索复制

youhun200

7 H& o  N  R; o
; T7 V, N4 G$ \1 K! X这个小程序是根据自己工作需要编写的，很简单，就是在跳出的list.txt里列出你要复制的文件名（可以不写后缀名），由上至下写入，然后按提示创建文件夹或已有文件夹，检索后会弹出一个搜索到的文件清单，以供编辑。保存后回车，文件就全复制你指定的文件夹里了。下面我把代码复制过来，仅供参考。（360会有提示，若不放心可以分析代码，绝不会有损害系统的执行代码）就当是一种娱乐吧
9 n3 E% D2 ~. z0 U3 D9 d@echo off
+ Z+ g( V. R9 W7 N+ w4 ^title  文件批量检索复制
color  1e
:stad
if  not  exist  list.txt  goto  exd
cls
/ w7 X) \: m3 t' }% A@echo.
8 P- [: g- c& r) I+ \. Iset/p       ph=       ● 输入创建文件夹的名称或已有文件夹名（空输入无效）:
: M5 J7 [! e! g1 gif  "%ph%"==""  goto stad
if  exist  "%ph%"  goto menu
' y6 R  E3 k& r' [0 }md  "%ph%"
:menu
cls
! @/ Z5 x0 M! Y- I7 M& B2 Omshta vbscript:msgbox("在文本中输入需要搜索的文件列表， 保存并回车，单击确定",64,"提示")(window.close)
- Q: P# h" N3 ~& }& Z' Dlist.txt
7 y9 V0 ?6 v0 i4 m6 Y1 yfindstr /rc:"." /rc:" " list.txt||  goto  ens
cls
@echo.
3 m! P) X; D2 T( g; _. V* f1 ~@echo      回车继续......
; N( |8 K5 j; _0 e: `# Dpause >nul
cls
@echo.
@echo                  正在搜索文件，稍候......
for /f  "tokens=1*"  %%f  in (list.txt) do  dir/s/a/b  \*"%%f"*  >>lise.txt
cls
@echo.
cls
/ ]. [' r+ }1 y' Yfindstr /rc:"." /rc:" "  lise.txt||  goto  err
cls
mshta vbscript:msgbox("查阅并编辑搜索到的文件列表, 保存并回车，单击确定",64,"提示")(window.close)
lise.txt
" E) p9 a8 E$ ~8 F' O  x@echo.
@echo      回车继续......
4 t, G8 S& x: U1 Z+ U1 X, rpause >nul
8 f: Y! e  F  U9 Z  u9 s6 j) ycls
findstr /rc:"." /rc:" "  lise.txt||  goto  erx
$ P; B  J7 z3 Fcls
6 F2 {$ c* }" w3 t' D! Vfor /f  "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f"  "%ph%"  >nul  2>nul
5 s5 d8 y9 v" w2 U% m0 u$ Ycls
@echo.
set cnt=0
$ v% W# G5 k9 e& ^! Mfor /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
)
if defined cnt (set   inf=共搜索到【%cnt%】个文件.) else echo,NO find files.
del/q   lise.txt  >nul
( b8 v0 ~# ?# H) o/ [; bmshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"复制完成! 单击确定退出",64,"提示")(window.close)
explorer.exe   %ph%
4 W# X* W" x- qexit
7 b7 }* M" C# v" X1 T# [:exd
- b& c9 w2 V7 ~. e* y' P! P6 Q, \cls
@echo.           >list.txt
cls
mshta vbscript:msgbox("【list.txt】文本已创建,单击确定，继续操作.",64,"提示")(window.close)
cls
" c, @3 y' N, ?( y2 @& p1 kgoto stad
:ens
cls
/ M" d" [$ P* w" M) U9 rmshta vbscript:msgbox("文本不能为空,单击确定，继续操作. ",16,"错误提示")(window.close)
if  not  exist  list.txt  goto exd
goto menu
:err
cls
mshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
exit
$ ]* M. \& {' u% O- b:erx
cls
del/q   lise.txt  >nul
mshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
8 ?& \0 c; Q% z. R2 \3 s$ mexit
7 J( ~5 h, I( U差点忘了，用记事本粘贴后，自己起名，后缀名写为bat或cmd
/ ~7 M( k! J9 ]. M! U
6 m1 Z6 T6 ?: J! w

siralop

在这里好多人不是做电气的，对于语言不了解的，既然写在这里不如做成一个插件，然后大家在输入框里输入想查的东西，一点查询就能用好些。

mhfx2020

批处理命令?...

mhfx2020

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

youhun200

mhfx2020 发表于 2023-12-28 15:57
+ l/ S2 w0 B7 \% Q! _' m楼主NB....应用场景是?

以下是从运行开始到结束的截图
: b4 R$ I* _- P, V/ o7 v+ D  \6 s

mhfx2020

好物，收藏了。感谢分享