|
|
本帖最后由 youhun200 于 2023-12-28 11:53 編輯
8 G* q' e6 [4 J3 Z) U
8 \) X5 |0 t; Q0 @1 ~2 f7 v( \; U這個小程序是根據自己工作需要編寫的，很簡單，就是在跳出的list.txt里列出你要復制的文件名（可以不寫后綴名），由上至下寫入，然后按提示創建文件夾或已有文件夾，檢索后會彈出一個搜索到的文件清單，以供編輯。保存后回車，文件就全復制你指定的文件夾里了。下面我把代碼復制過來，僅供參考。（360會有提示，若不放心可以分析代碼，絕不會有損害系統的執行代碼）就當是一種娛樂吧 5 D% q& Q) \7 S8 Z
@echo off) x. W* ]1 z" N8 n
title 文件批量檢索復制8 b: _5 @6 ]5 ^% F. O* S `6 h5 t9 z: Z
color 1e
2 q1 F+ J' d2 w1 f4 c1 c8 J:stad: }# Z$ l; K- I
if not exist list.txt goto exd( `( m0 G3 e: o! P1 h6 }" l
cls7 V2 F+ S9 l9 W# ~, ?
@echo.8 m2 g* X+ b# G1 k/ g
set/p ph= ● 輸入創建文件夾的名稱或已有文件夾名（空輸入無效）:2 K _8 V8 _8 s% n2 F
if "%ph%"=="" goto stad
: |- [3 q3 ^* y& Wif exist "%ph%" goto menu: D) @4 z* g1 `" h1 `9 s
md "%ph%" ! ^: e3 u: e# ~& G& S( G
:menu4 `8 Y, h6 n9 E, \; R% T" Y l& I
cls# _7 [) {1 W$ {, i2 U
mshta vbscript:msgbox("在文本中輸入需要搜索的文件列表， 保存并回車，單擊確定",64,"提示")(window.close)
% t/ [% u" n7 ^ N4 l. N! mlist.txt
: @0 D9 o0 }, k, h9 x7 K* vfindstr /rc:"." /rc:" " list.txt|| goto ens8 {1 D1 a _ Q t
cls
, V4 b% Z% W! C3 D6 X$ {. G5 {0 E@echo.
2 D4 {: j: R8 A0 P@echo 回車繼續......" [: H5 y( s- q" T/ o3 O
pause >nul+ W2 K9 N/ }+ d; J( ?8 e
cls
; q& I/ Y1 ~5 f4 [& s@echo.
6 j8 h% A* L1 r2 F0 s@echo 正在搜索文件，稍候....... Z+ Q- T+ M, @ n
for /f "tokens=1*" %%f in (list.txt) do dir/s/a/b \*"%%f"* >>lise.txt
; }& p6 s+ A5 m2 ^cls
/ Z+ W2 v3 w4 u7 ]0 B3 k@echo.8 i6 Z( n+ U n1 H
cls' z* \8 K- c& I3 J8 u$ U! w4 ~
findstr /rc:"." /rc:" " lise.txt|| goto err( v" f6 Z) i) v. S2 O% m* Z
cls
% A: }2 G' G/ \% z$ c9 n# R8 I! }mshta vbscript:msgbox("查閱并編輯搜索到的文件列表, 保存并回車，單擊確定",64,"提示")(window.close)7 k, f7 \+ o* g: s
lise.txt
9 L8 P, _) G- v# w1 t@echo.
3 R0 E+ {7 M+ e$ K@echo 回車繼續......( g8 y* u" z) y+ K- S- _
pause >nul- }4 K6 l$ B7 J; y
cls9 c* u. {6 B, ]: F$ |7 X$ A
findstr /rc:"." /rc:" " lise.txt|| goto erx7 Y, f' T) u& @5 ]/ o9 J
cls
]$ ~$ h9 f* a3 Ofor /f "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f" "%ph%" >nul 2>nul
0 T& c. i0 B) r" |7 j0 ^cls
/ b: {4 h. E+ t ]& D5 \@echo.7 [5 A: p: P! B; Z# K) x4 ]# ~
set cnt=06 @( ^6 y/ y* @- x
for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=11 o8 ^8 r2 @- ]! q+ D
)
- y+ G5 l( c- a# aif defined cnt (set inf=共搜索到【%cnt%】個文件.) else echo,NO find files.
# H0 T0 \" A8 T- Q* f1 u0 p* P3 ddel/q lise.txt >nul$ C& M" P( S2 }. q
mshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"復制完成! 單擊確定退出",64,"提示")(window.close) }8 W6 {7 K1 R4 j2 x6 D% j
explorer.exe %ph%; ^$ t* ~( ^4 s1 m% ^" s
exit* Y/ Y. q8 t1 J$ g
:exd
+ K+ N1 J3 E/ a- O! h0 \cls+ B: S& P6 {3 e: C( C" @
@echo. >list.txt4 U9 L6 z* y0 C& Z3 _
cls4 k N% r! u8 W$ _
mshta vbscript:msgbox("【list.txt】文本已創建,單擊確定，繼續操作.",64,"提示")(window.close)7 q* z# ^ Y! ]* L; M9 u
cls
+ [ u0 `5 c9 W3 E3 _0 ^goto stad! E! ]' y: L$ ^1 y* H; d
:ens
* K0 j, P+ t8 e+ L, b6 b/ x# Jcls
/ \$ T1 O5 E2 \5 [mshta vbscript:msgbox("文本不能為空,單擊確定，繼續操作. ",16,"錯誤提示")(window.close)
/ j. y5 \$ X3 r9 ^ E6 l& t, q* `if not exist list.txt goto exd
+ `+ @) r7 W! Y$ G1 `( J& ~goto menu
/ I) v* u6 K n# Q:err* A. V* v# Q& F' F: F
cls& d9 T! k. B$ `! e2 s4 K z) e) `
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)6 z! T; \) q& i
exit+ E# t6 j, P/ h& g z- V2 }
:erx
4 m9 Z" `8 w) p0 y, A- `* e ucls
* Q# B. h5 Q* t$ H' ~0 C3 v# X% udel/q lise.txt >nul
1 W/ X" N1 k6 d6 U2 `+ Tmshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)% a& D% m% U3 h7 ~. F
exit
$ ?3 N5 g* X4 p8 e/ q差點忘了，用記事本粘貼后，自己起名，后綴名寫為bat或cmd5 b2 C% M- ?: ?
7 @+ f2 c9 B" [9 Q |
評分
-
查看全部評分
|
發表于 2023-12-28 11:51:23
QQ好友和群
QQ空間
