文件批量检索复制

youhun200

$ T- }; ~- F1 O2 r; V& x1 F这个小程序是根据自己工作需要编写的，很简单，就是在跳出的list.txt里列出你要复制的文件名（可以不写后缀名），由上至下写入，然后按提示创建文件夹或已有文件夹，检索后会弹出一个搜索到的文件清单，以供编辑。保存后回车，文件就全复制你指定的文件夹里了。下面我把代码复制过来，仅供参考。（360会有提示，若不放心可以分析代码，绝不会有损害系统的执行代码）就当是一种娱乐吧
@echooff
title 文件批量检索复制
: Q0 G2 W' h$ W" X" o; X1 S! q# z+ hcolor 1e
:stad
+ W$ A0 H0 b0 Z* U$ {- d8 Vif not exist list.txt goto exd
) j. ^& P8 c; }* X* P, E$ Hcls
: u% g( T( `- e$ W) |@echo.
set/p ph= ● 输入创建文件夹的名称或已有文件夹名（空输入无效）:
if "%ph%"=="" goto stad
; p6 q ?0 `/ Q4 H* P. tif exist "%ph%" goto menu
md "%ph%"
:menu
; O& U4 ` J( x: z4 ccls
mshta vbscript:msgbox("在文本中输入需要搜索的文件列表， 保存并回车，单击确定",64,"提示")(window.close)
list.txt
findstr /rc:"." /rc:" " list.txt|| goto ens
cls
9 e2 E3 N7 ~: g4 q5 Z3 ~@echo.
: _) C& g2 ]! g" Q1 g, U! Y! G@echo 回车继续......
' J8 ?0 h6 `) s) u2 x: w: ^pause >nul
3 O( E$ X: B, G. k) {* r/ ~cls
. G- k/ Q& S% g; p0 U' m# [@echo.
@echo 正在搜索文件，稍候......
+ y/ L0 n* d- S w( y Q* Ifor /f "tokens=1*" %%f in (list.txt) do dir/s/a/b \*"%%f"* >>lise.txt
' i; P! c4 i, ]& D7 b8 r+ U2 }cls
@echo.
, m8 U$ d; V- U' k3 h8 O8 ~3 ]cls
8 O: x& k- G) C3 t8 Nfindstr /rc:"." /rc:" " lise.txt|| goto err
8 S0 Z) p1 i" T- h2 Fcls
mshta vbscript:msgbox("查阅并编辑搜索到的文件列表, 保存并回车，单击确定",64,"提示")(window.close)
lise.txt
8 Z# Q+ l$ ~9 C) U E- d@echo.
@echo 回车继续......
pause >nul
cls
& h7 M$ R' ~! k/ ~, _+ T) tfindstr /rc:"." /rc:" " lise.txt|| goto erx
cls
for /f "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f" "%ph%" >nul 2>nul
- h p8 D; @$ ^cls
) P7 _8 R# R/ ~" \$ W/ V6 R6 d$ s7 N@echo.
set cnt=0
for /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
6 W0 L/ i* U6 ]( [* ]1 rmshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"复制完成! 单击确定退出",64,"提示")(window.close)
# O$ t5 i$ b" H4 Xexplorer.exe %ph%
1 R" h- t/ A( ^; Sexit
:exd
cls
@echo. >list.txt
6 \7 R ], r) s* E0 \( h$ Mcls
mshta vbscript:msgbox("【list.txt】文本已创建,单击确定，继续操作.",64,"提示")(window.close)
cls
goto stad
) N- P. ]* Z+ I2 r: F:ens
- T/ N& n# D7 Ecls
0 F- ~( j+ t' ]% a6 @2 u" p# ?- ]mshta vbscript:msgbox("文本不能为空,单击确定，继续操作. ",16,"错误提示")(window.close)
if not exist list.txt goto exd
goto menu
, r+ g/ `9 V& q, r8 c:err
cls
; S% ~+ G9 `9 Y) Y" f' Hmshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
5 J% O8 \, J6 p9 V# \exit
7 {( s+ A9 P9 A:erx
cls
: o1 r2 L$ A) D# w5 D" Ddel/q lise.txt >nul
2 u9 y5 P1 w I& }mshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
7 z* u4 W1 g1 k3 t, sexit
差点忘了，用记事本粘贴后，自己起名，后缀名写为bat或cmd

siralop

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

mhfx2020

批处理命令?...

mhfx2020

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

youhun200

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

. g0 [: ^ y! |0 c2 V2 L以下是从运行开始到结束的截图
5 { }; {/ ~+ y1 P1 s! w6 d `# [

mhfx2020

好物，收藏了。感谢分享