|
|
本帖最后由 youhun200 于 2023-12-28 11:53 編輯
& W. K! C' V* O8 K W9 ^4 A& ?
( I3 ^; h0 G9 z4 u; C9 M1 ^/ |- s" a這個小程序是根據自己工作需要編寫的，很簡單，就是在跳出的list.txt里列出你要復制的文件名（可以不寫后綴名），由上至下寫入，然后按提示創建文件夾或已有文件夾，檢索后會彈出一個搜索到的文件清單，以供編輯。保存后回車，文件就全復制你指定的文件夾里了。下面我把代碼復制過來，僅供參考。（360會有提示，若不放心可以分析代碼，絕不會有損害系統的執行代碼）就當是一種娛樂吧 1 s% V* V) B$ ]5 \4 }( K/ Y
@echo off
; F, u8 j. a% Z7 `title 文件批量檢索復制
0 C. u \/ h' ^6 `# ncolor 1e
9 H: n. x7 ]! X! [3 \:stad9 }4 Z Q: m( k) T0 C- Q
if not exist list.txt goto exd5 E3 L$ Z1 s9 t1 C0 C% B
cls9 f% |1 r1 y2 M# t" ~6 ~
@echo.
9 S C( o6 Y( g# H B0 s+ ]! ^set/p ph= ● 輸入創建文件夾的名稱或已有文件夾名（空輸入無效）:6 ]+ o" Z, K) i5 B8 Z( L
if "%ph%"=="" goto stad0 k) {2 |7 F$ ?' y ~7 N; y+ {: I1 O
if exist "%ph%" goto menu
8 [ j- d6 h) a9 vmd "%ph%"
6 T" T1 k. R5 B' v- ?& Y:menu7 n- j6 \( |+ e" T: ^
cls' l0 \' l1 x2 P0 R" b
mshta vbscript:msgbox("在文本中輸入需要搜索的文件列表， 保存并回車，單擊確定",64,"提示")(window.close), q6 d) N' x0 o) P. L
list.txt
; G4 O9 p' L5 f$ _, f: @findstr /rc:"." /rc:" " list.txt|| goto ens
$ q0 g; r* ]' P7 j) p9 Dcls
" i. ^" h. ~7 e1 T4 g@echo.
$ X' y! t. A' T6 C& u@echo 回車繼續......& z# t4 F6 q7 G5 a/ U
pause >nul
. ^$ ?5 t: e. t3 c' h5 t' O& `cls. }$ F. a7 g! H- y
@echo.7 V2 d/ q4 _5 t% f7 s
@echo 正在搜索文件，稍候......- @& ^8 \& @, r) v
for /f "tokens=1*" %%f in (list.txt) do dir/s/a/b \*"%%f"* >>lise.txt
$ \' L+ M: {9 `cls
# A& i9 j- D6 k% m% M6 o B@echo.
4 D3 I) h G* a; _) Ncls
" r2 \$ D. T: x) y* e7 j, n0 L: Qfindstr /rc:"." /rc:" " lise.txt|| goto err
H6 A3 ?3 ]( A7 F: H( P# scls
& a/ i; {$ b( l7 Bmshta vbscript:msgbox("查閱并編輯搜索到的文件列表, 保存并回車，單擊確定",64,"提示")(window.close)& T/ | [0 _& x+ M Y
lise.txt2 l, r w, i# z6 g v7 Y
@echo.
G7 g: D, J6 G@echo 回車繼續......
* E0 B4 E3 l8 v* [0 mpause >nul! v$ s$ f4 m5 k# k, f
cls
$ x2 N3 g- }6 C! |0 afindstr /rc:"." /rc:" " lise.txt|| goto erx" q. Y; Y7 e3 |3 Z$ y5 a
cls7 P& x& @7 Z, @: r5 Z6 q
for /f "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f" "%ph%" >nul 2>nul
1 O: c$ C }* w5 ~8 Z% P6 f1 ycls
/ b8 e3 T- @1 K& k7 R4 X- N; r4 W@echo.$ F: |, q0 S) E4 t! C
set cnt=05 |9 l6 ^& \1 W' O( W9 G) N
for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1" W% M' i8 o' B% t; N0 C
)+ A" q; Y1 }# l, ~. [2 V
if defined cnt (set inf=共搜索到【%cnt%】個文件.) else echo,NO find files.
$ j6 `. z8 J. ]4 d- E' v' Wdel/q lise.txt >nul0 y9 E; d5 x. U+ D
mshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"復制完成! 單擊確定退出",64,"提示")(window.close)
" a0 X: b- n9 c4 X6 J( F& Hexplorer.exe %ph%
1 W& z* T3 l) z; dexit
7 \* g" n8 L2 C$ u1 t |% Q8 |& @:exd
4 @( A C" w7 x6 s4 rcls) w' I3 s) \: \! v7 t
@echo. >list.txt( a4 m" |9 k$ J
cls
. H, L7 d$ \7 W$ O' K/ o9 }) J$ Wmshta vbscript:msgbox("【list.txt】文本已創建,單擊確定，繼續操作.",64,"提示")(window.close)
; m3 ?7 P) J9 {2 mcls( c; n6 A9 R5 `/ K' `" ^! I% T
goto stad
4 {" s' h- m6 g/ I: F6 L- A# \7 O9 p:ens
# Z: W( @! {* l3 h4 V0 u- Scls
/ k% z8 ?$ K+ C; o; ~8 ?mshta vbscript:msgbox("文本不能為空,單擊確定，繼續操作. ",16,"錯誤提示")(window.close)8 ^1 b9 |7 i. K/ h9 Z3 c
if not exist list.txt goto exd- Q+ p$ B+ b* N& n& b
goto menu8 Z% y+ W4 V X5 W) O
:err: @+ E0 `. P; K% Y, |9 |; A$ |( @6 _
cls
7 J( a$ G& J, j, y, P% Cmshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
) R M3 P. _1 B/ A5 Gexit
; S4 `9 f0 N) }& d: R:erx
) K0 u1 ^# I0 ocls4 v2 G, M( s* s+ Z6 S
del/q lise.txt >nul
1 a( M$ U9 j: p- W2 wmshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)5 \9 G- ?4 m" u* D6 G" {) R
exit
! Q* F% |" [8 O6 ]5 l差點忘了，用記事本粘貼后，自己起名，后綴名寫為bat或cmd, S! V. P: _! |" z2 P4 d
/ T. j- w7 O# h/ X
|
評分
-
查看全部評分
|
發表于 2023-12-28 11:51:23
QQ好友和群
QQ空間
